Sign in
gnu
/
gcc
/
bdd784fc48a283d54f5f1e3cc2a0668c14dd3bee
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr68544.f90
blob: 3b17e2ab523acea31fe1c478eaecbe77badfaaa3 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PF fortran
/
68544
program p
real x
type t
end
type
x
=
f
(
t
)
!
{
dg
-
error
"used as an actual argument"
}
end
subroutine b
type t
end
type
print
*,
shape
(
t
)
!
{
dg
-
error
"used as an actual argument"
}
end