gcc/testsuite/gfortran.dg/pr68544.f90


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

! { dg-do compile }
! PF fortran/68544
program p
   real x
   type t
   end type
   x = f(t)             ! { dg-error "used as an actual argument" }
end
subroutine b
   type t
   end type
   print *, shape(t)    ! { dg-error "used as an actual argument" }
end