Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
deferred_character_33a.f90
blob: db117cc0b3817f8c23e530ee1d1501ea83efb8ab [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
subroutine convrs
(
quanty
,
fromto
)
implicit
none
character
(*),
intent
(
in
)
::
quanty
,
fromto
if
(
len
(
fromto
)
/=
2
)
stop
1
if
(
fromto
/=
'OK'
)
stop
2
end
subroutine