gcc-4.9/gcc/testsuite/gfortran.dg/class_49.f90


1
2
3
4
5
6
7
8
9
10
11

! { dg-do compile }
!
! PR fortran/52029
!

elemental subroutine foo()
  type t
  end type t
  class(t), allocatable :: x
  if (allocated(x)) i = 5
end