Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
pr96025.f90
blob: ce292bd9664c607c94cb428a7cf8778cb4bc98be [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
96025
-
ICE
in
expr_check_typed_help
!
Contributed
by
G
.
Steinmetz
program p
print
*,
f
()
contains
character
(
char
(
1
))
function
f
()
!
{
dg
-
error
"must be of INTEGER type"
}
f
=
'f'
end
end