mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
9 lines
208 B
Fortran
9 lines
208 B
Fortran
! { 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
|