Sign in
gnu
/
gcc
/
cd2fd5facb5e1882d3f338ed456ae9536f7c0593
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
strarray_2.f90
blob: 23bf7c48bdd7172a94080e4c581a0340d374ad08 [
file
] [
log
] [
blame
]
subroutine foo
(
i
,
c
)
character c
integer i
character
(
1
),
parameter
::
hex_chars
(
0
:
15
)=&
(
/'0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'/
)
c
=
hex_chars
(
i
)
end
program strarray_2
character c
call foo
(
3
,
c
)
if
(
c
.
ne
.
'3'
)
STOP
1
end