January 1, 2023 at 2:32:49 PM CET Jonathan Wakely <jwakely.gcc@xxxxxxxxx> wrote: On Sun, 1 Jan 2023, 12:01 Patrick Begou via Gcc-help, <gcc-help@xxxxxxxxxxx> wrote: You are using a wrong option that may overwrite your fortran source file with the result of the compilation.. To create only the .o file use: gfortran -O3 -ffree-form*-c* myfile.f or, f you want: gfortran -O3 -ffree-form*-c* myfile.f*-o myfile.o* This markup doesn't really help in plain text rendering. The file is not complicated, I just have defined an array and a recursive subroutine. implicit none integer, parameter :: prec=kind(1d0), i64=selected_int_kind(15) integer, parameter :: L(0:43) = (/ & 1, 1, 3, 5, 9, 15, 25, 41, 67, 109, & 177, 287, 465, 753, 1219, 1973, 3193, 5167, 8361, & 13529, 21891, 35421, 57313, 92735, 150049, & 242785, 392835, 635621, 1028457, 1664079, 2692537, & 4356617, 7049155, 11405773, 18454929, 29860703, & 48315633, 78176337, 126491971, 204668309, 331160281, & 535828591, 866988873, 1402817465 /) recursive subroutine quicksort (array) real(prec), intent(inout) :: array(:) real(prec) :: temp, pivot integer :: i, j, last, left, right last = size (array) end subroutine quicksort it will do the same thing. Patrick Le 01/01/2023 à 09:52, Hans Lonsdale via Gcc-help a écrit : > > I want to compile a file containing a number of subroutines. > > I am using the command > > gfortran -O3 -ffree-form -o myfile.f > > But getting problems with recursive and END PROGRAM statement. > > All I want is making the object file. > > 44 | recursive subroutine quicksort (array) > | 1 > Error: Unclassifiable statement at (1) > myfile.f:112:3: > > 112 | end subroutine quicksort > | 1 > Error: Expecting END PROGRAM statement at (1) > myfile.f:122:35: > > Have done > > gfortran -O3 -ffree-form -o myfile.f > > The command is supposed to make the object file, but I get errors with END PROGRAM declaration. > > -- Sent with https://mailfence.com Secure and private email
