blob: 410b2b2a5cc27e6a1c950f696e7fe1c1833fabe2 (
plain)
1
2
3
4
5
6
7
8
|
! { dg-do compile }
! PR fortran/85687
! Code original contributed by Gerhard Steinmetz gscfq at t-oline dot de
program p
type t
end type
print *, rank(t) ! { dg-error "used as an actual argument" }
end
|