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

             Bug #: 56496
           Summary: [OOP] ICE with TYPE(*) coarray and SELECT TYPE
    Classification: Unclassified
           Product: gcc
           Version: 4.8.0
            Status: UNCONFIRMED
          Keywords: ice-on-valid-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassig...@gcc.gnu.org
        ReportedBy: bur...@gcc.gnu.org
                CC: pa...@gcc.gnu.org


The following program gives an ICE:

$ gfortran -fcoarray=single test.f90
test.f90: In Funktion »MAIN__«:
test.f90:5:0: interner Compiler-Fehler: Speicherzugriffsfehler
   a= 5
 ^
0x99dc9f crash_signal
        ../../gcc/toplev.c:332
0x5fde88 tree_class_check
        ../../gcc/tree.h:3801
0x5fde88 gfc_conv_array_data(tree_node*)
        ../../gcc/fortran/trans-array.c:2662



class(*), allocatable :: A[:]
allocate(integer :: a[*])
select type(a)
type is (integer)
  a= 5
  print *, a
end select
end

Reply via email to