blob: b0faa8d59276e22cdac33195f023e55ec6abfd3d (
plain)
1
2
3
4
5
6
7
8
9
|
! { dg-do compile }
! PR fortran/85543
program p
procedure(), pointer :: z
contains
real(z()) function f() ! { dg-error "in initialization expression at" }
end
end
! { dg-prune-output "Bad kind expression for function" }
|