re PR fortran/78741 (ICE in gfc_get_symbol_decl, at fortran/trans-decl.c:1534)

[official-gcc.git] / gcc / testsuite / gfortran.dg / oldstyle_5.f

C { dg-do compile }
      TYPE T
      INTEGER A(2)/1,2/ ! { dg-error "Invalid old style initialization for derived type component" }
      END TYPE
      TYPE S
      INTEGER B/1/ ! { dg-error "Invalid old style initialization for derived type component" }
      END TYPE
      END