gcc/testsuite/gfortran.dg/class_is_1.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

! { dg-do compile }
! PR fortran/66245
! Original testcase by Gerhard Steinmetz
! <gerhard dot steinmetz dot fortran at t-online dot de>
program p
   type t; end type
   class(t), allocatable :: x
   call s
   contains
      subroutine s
         select type ( x )
         class is ( )       ! { dg-error "error in CLASS IS" }
         end select
      end subroutine s
end program p