blob: b5ea8af189d3ec178ad00dea0ee9ea6a6660b5d5 [file] [log] [blame]
! { dg-do compile }
! PR fortran/85001
! Contributed by Gerhard Steinmetz.
program p
type t
end type
call s
contains
real function f(x)
class(t) :: x
dimension :: x(:)
f = 1.0
end
subroutine s
type(t) :: x(2)
real :: z
z = f(x) ! { dg-error "Rank mismatch in argument" }
end
end