Sign in
gnu
/
gcc
/
b305ec979d9dfc8153859a62a8ab9dd43c3bfc73
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr78758.f90
blob: 3fd335287e974cba2f8f4b4b583f0acaddeff5d4 [
file
] [
log
] [
blame
]
!
PR fortran
/
78758
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O2 -Wall"
}
integer
function
pr78758
(
x
)
character
(
len
=*),
intent
(
in
)
::
x
character
(
len
=
16
)
::
y
integer
,
external
::
z
y
(
2
:)
=
" "
// adjustl (x(2:))
pr78758
=
z
(
y
)
end
function
pr78758