From: <Malte.Mauelshagen@dlr.de>
To: <gcc-help@gcc.gnu.org>
Subject: internal compiler error
Date: Mon, 12 Jul 2010 09:04:00 -0000 [thread overview]
Message-ID: <E9BA81AFF50DE84BB205B92EA9671B200EBA1C@exbe3.intra.dlr.de> (raw)
hello,
i converted some files of my project from fixed-format (.f77) to free-format (.f90) and divided the code into some subroutines.
Unfortunately now, there occurs a problem and i dont know how to solve:
gfortran -x f95-cpp-input -ffast-math -m64 -w -O2 -frecord-marker=4 -DtwoD -UnoTecplotLib -Dturbvel -Dcaa -Dpurser -Dpartini -Dsweeping -Dltble -Dfiltering -c ../MainSubs/PianoInterface.f90 2>&1 |tee PianoInterface.err
../MainSubs/PianoInterface.f90: In function ‘initpiano’:
../MainSubs/PianoInterface.f90:494: internal compiler error: in gfc_conv_function_val, at fortran/trans-expr.c:1177
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://bugs.opensuse.org> for instructions.
Here is an extract from my code(../MainSubs/PianoInterface.f90): (lines 458-498)
-----------------------------------------------------------------------
!---- get necessary information from logic file and ...
!=======================================================================
call ReadLogic(Fil%Log, GlobDirLast, SegMap)
write(PipOut, 401) &
#ifdef parallel
& 'Processor', MyCPU, ': ', &
#endif
& 'logic read in and distributed ...'
call Wait
!-----------------------------------------------------------------------
!---- ... distributes the work
!=======================================================================
call Distribute(DirIn//Fil%Proc, Box2Process, Glob2Local, &
& Loc2Global, MaxBox, GlobMaxBox, DirLast, &
& GlobDirLast)
write(PipOut, 401) &
#ifdef parallel
& 'Processor', MyCPU, ': ', &
#endif
& 'all blocks are distributed ...'
call Wait
!-----------------------------------------------------------------------
!---- checks all readed parameters for consistency
!=======================================================================
call CheckPara(SrcPeriod, dtSource, thermo, &
& NoInit, Init, AreaVar, MicsVar, NoDamp, Damp, &
& NoCirc, Circles, NoSrcFile, RPMpara, sponge, SBT)
write(PipOut, 401) &
#ifdef parallel
& 'Processor', MyCPU, ': ', &
#endif
& 'check of parameters passed ...'
call Wait !!!!!!!!!!(THIS IS LINE 494!!!!!!)!!!!!
!---- detect type of running machine and initialize parameters in C-world
!-----------------------------------------------------------------------
box = TestMachine(Dim, FormInt, FormFlt, FormDbl, zero,Debug%Read)
It seems to be a bit arbitrary, because the two times the fuction wait is called before, it works.
I use "GNU Fortran 95 (GCC) 4.1.2 20070115 (SUSE Linux)" and "x86_64 GNU/Linux".
Hopefully this is the correct mailing-list and you know how to solve the problem.
Thank you in advance
Malte Mauelshagen
-----------------------------------------------------------------------------
German Aerospace Center (DLR)
Member of the Helmholtz-Association
Institute of Aerodynamics and Flow Technology
next reply other threads:[~2010-07-12 7:54 UTC|newest]
Thread overview: 25+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-07-12 9:04 Malte.Mauelshagen [this message]
2010-07-12 9:56 ` Ian Lance Taylor
-- strict thread matches above, loose matches on Subject: below --
2018-01-19 13:17 Matt Sexton via gcc-help
2018-01-19 13:26 ` Mikhail Maltsev
2018-01-19 14:35 ` Matt Sexton via gcc-help
2018-01-19 15:54 ` Matt Sexton via gcc-help
2018-01-22 13:14 ` Mason
2018-01-22 13:21 ` Matt Sexton via gcc-help
2012-12-24 16:44 Internal Compiler Error tanle
2012-12-24 18:19 ` Andrew Haley
2012-12-27 17:27 ` Iyer, Balaji V
2008-02-29 21:27 internal compiler error raian.ufop
2008-02-29 22:16 ` Brian Dessent
2008-03-03 18:50 ` raian.ufop
2003-07-30 20:29 Internal " DEEPA SIVASANKARANE
2001-07-03 8:36 Av Vl
2001-07-02 8:04 Av Vl
1999-09-29 12:58 Guardian
1999-09-30 3:33 ` jwk
1999-09-30 23:56 ` jwk
1999-10-01 0:00 ` jwk
1999-10-01 13:49 ` Guardian
1999-10-31 13:57 ` Guardian
1999-09-30 23:56 ` Guardian
1999-10-01 0:00 ` Guardian
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=E9BA81AFF50DE84BB205B92EA9671B200EBA1C@exbe3.intra.dlr.de \
--to=malte.mauelshagen@dlr.de \
--cc=gcc-help@gcc.gnu.org \
/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).