From: Hans Lonsdale <hanslonsdale@mailfence.com>
To: Jonathan Wakely <jwakely.gcc@gmail.com>,
Patrick Begou <Patrick.Begou@univ-grenoble-alpes.fr>
Cc: gcc-help <gcc-help@gcc.gnu.org>
Subject: Re: Compiling file with subroutines using gfortran
Date: Sun, 1 Jan 2023 15:41:03 +0100 (CET) [thread overview]
Message-ID: <169342516.761954.1672584062991@ichabod.co-bxl> (raw)
In-Reply-To: <CAH6eHdQmb-JC6AaVdyKkwZG7iBXYQYFw10M71hyNfZ53Jo2O_w@mail.gmail.com>
[-- Attachment #1: Type: text/plain, Size: 2243 bytes --]
January 1, 2023 at 2:32:49 PM CET Jonathan Wakely <jwakely.gcc@gmail.com> wrote:
On Sun, 1 Jan 2023, 12:01 Patrick Begou via Gcc-help, <gcc-help@gcc.gnu.org> 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
next prev parent reply other threads:[~2023-01-01 15:33 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2023-01-01 8:52 Hans Lonsdale
2023-01-01 11:59 ` Patrick Begou
2023-01-01 13:32 ` Jonathan Wakely
2023-01-01 14:41 ` Hans Lonsdale [this message]
2023-01-01 16:21 ` Patrick Begou
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=169342516.761954.1672584062991@ichabod.co-bxl \
--to=hanslonsdale@mailfence.com \
--cc=Patrick.Begou@univ-grenoble-alpes.fr \
--cc=gcc-help@gcc.gnu.org \
--cc=jwakely.gcc@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).