2017-11-09 Steven G. Kargl <kargl@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / interface_40.f90
blob085c6b30f3946ec5681d26343352fb0e447cce12
1 ! { dg-do compile }
2 ! PR fortran/78814
3 ! Code contributed by Gerhard Steinmetz
4 program p
5 class(*) :: x ! { dg-error " must be dummy, allocatable or pointer" }
6 print *, f(x)
7 end