blob: 03bc2119364c65a0c99792cd4ccc9f0fb3bf6e9c (
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 "must be a data object" }
end
|