arm: Add .type and .size to __gnu_cmse_nonsecure_call [PR115360]
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr67616.f90
blob3c2107d175ced1f213fff6c577002868b69d674a
1 ! { dg-do compile }
2 ! PR fortran/67616
3 ! Original code contributed by Gerhard Steinmetz
4 program p
5 type t
6 end type
7 type(t) :: y
8 data y /t()/
9 block
10 type(t) :: x
11 data x /t()/ ! Prior to patch, this would ICE.
12 end block
13 end