class_49.f90\gfortran.dg\testsuite\gcc - delta/gcc-tarball.git - ftp.gnu.org: gnu/gcc/gcc-7.3.0/gcc-7.3.0.tar.xz

index : delta/gcc-tarball.git

ftp.gnu.org: gnu/gcc/gcc-7.3.0/gcc-7.3.0.tar.xz

summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/class_49.f90

blob: 0c0b2b8019fbbdae1b7a9fdffb658f166d4fbaa0 (plain)

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

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