This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/41781] New: [OOP] bogus undefined label error with SELECT TYPE.
- From: "sfilippone at uniroma2 dot it" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 21 Oct 2009 09:34:13 -0000
- Subject: [Bug fortran/41781] New: [OOP] bogus undefined label error with SELECT TYPE.
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
With trunk at revision 153049 I get the following
Using built-in specs.
COLLECT_GCC=gfortran
COLLECT_LTO_WRAPPER=/usr/local/gnu45/libexec/gcc/x86_64-unknown-linux-gnu/4.5.0/lto-wrapper
Target: x86_64-unknown-linux-gnu
Configured with: ../gcc/configure --prefix=/usr/local/gnu45
--enable-languages=c,c++,fortran : (reconfigured) ../gcc/configure
--prefix=/usr/local/gnu45 --enable-languages=c,c++,fortran
Thread model: posix
gcc version 4.5.0 20091021 (experimental) (GCC)
COLLECT_GCC_OPTIONS='-v' '-c' '-mtune=generic'
/usr/local/gnu45/libexec/gcc/x86_64-unknown-linux-gnu/4.5.0/f951 gotobug.f03
-quiet -dumpbase gotobug.f03 -mtune=generic -auxbase gotobug -version
-fintrinsic-modules-path
/usr/local/gnu45/lib/gcc/x86_64-unknown-linux-gnu/4.5.0/finclude -o
/tmp/ccidWMNg.s
GNU Fortran (GCC) version 4.5.0 20091021 (experimental)
(x86_64-unknown-linux-gnu)
compiled by GNU C version 4.5.0 20091021 (experimental), GMP version
4.2.4, MPFR version 2.4.1
warning: MPFR header version 2.4.1 differs from library version 2.3.2.
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
GNU Fortran (GCC) version 4.5.0 20091021 (experimental)
(x86_64-unknown-linux-gnu)
compiled by GNU C version 4.5.0 20091021 (experimental), GMP version
4.2.4, MPFR version 2.4.1
warning: MPFR header version 2.4.1 differs from library version 2.3.2.
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
gotobug.f03:17.15:
goto 9999
1
Error: Label 9999 referenced at (1) is never defined
on the attached code, which is obiviously a bogus claim.
If I change the source code as follows:
---------------------
select type()
......
class default
info = -1
end select
if (info /= 0) goto 9999
----------------------
then it works, so it's definitely an interaction with SELECT TYPE.
--
Summary: [OOP] bogus undefined label error with SELECT TYPE.
Product: gcc
Version: 4.5.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: sfilippone at uniroma2 dot it
GCC build triplet: x86_64-unknown-linux-gnu
GCC host triplet: x86_64-unknown-linux-gnu
GCC target triplet: x86_64-unknown-linux-gnu
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41781