This is the mail archive of the gcc-bugs@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Bug fortran/41781] New: [OOP] bogus undefined label error with SELECT TYPE.


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


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]