c: Fix up pointer types to may_alias structures [PR114493]
[official-gcc.git] / gcc / testsuite / gfortran.dg / class_49.f90
blob0c0b2b8019fbbdae1b7a9fdffb658f166d4fbaa0
1 ! { dg-do compile }
3 ! PR fortran/52029
6 elemental subroutine foo()
7 type t
8 end type t
9 class(t), allocatable :: x
10 if (allocated(x)) i = 5
11 end