[Bug fortran/44212] [OOP] ICE when defining a pointer component before defining the class and calling a TBP then

["dominiq at lps dot ens dot fr" <gcc-bugzilla@gcc.gnu.org>]

------- Comment #3 from dominiq at lps dot ens dot fr  2010-05-21 06:21 -------
The patch in comment #2 fixes the ICE, but is probably the cause of

FAIL: gfortran.dg/select_type_1.f03  -O  (internal compiler error)
FAIL: gfortran.dg/select_type_1.f03  -O   (test for errors, line 63)
FAIL: gfortran.dg/select_type_1.f03  -O   (test for errors, line 65)
FAIL: gfortran.dg/select_type_1.f03  -O  (test for excess errors)

The ICE is

/opt/gcc/_clean/gcc/testsuite/gfortran.dg/select_type_1.f03:54.77:

class default  ! { dg-error "cannot be followed by a second DEFAULT CASE" }
                                                                           1  
/opt/gcc/_clean/gcc/testsuite/gfortran.dg/select_type_1.f03:56.77:

class default  ! { dg-error "cannot be followed by a second DEFAULT CASE" }
                                                                           2  
Error: The DEFAULT CASE at (1) cannot be followed by a second DEFAULT CASE at
(2)
f951: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.

and the missing errors are

/opt/gcc/_clean/gcc/testsuite/gfortran.dg/select_type_1.f03:63.11:

  type is (t2)  ! { dg-error "overlaps with CASE label" }
           1
/opt/gcc/_clean/gcc/testsuite/gfortran.dg/select_type_1.f03:65.11:

  type is (t2)  ! { dg-error "overlaps with CASE label" }
           2
Error: CASE label at (1) overlaps with CASE label at (2)

Otherwise I did not noticed other side effects.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44212