Sign in
gnu
/
gcc
/
2650b6f9147c0d855c2763610b8a4bff18f5b5e0
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
module_widestring_1.f90
blob: 332b24d0c06b32a403d79763d32a8dff8f0eff1a [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
options
"-fbackslash"
}
!
!
Testcase
from
PR36162
module
m
character
(*),
parameter
::
a
=
'H\0z'
end
module
m
use
m
character
(
len
=
20
)
::
s
if
(
a
/=
'H\0z'
)
STOP
1
if
(
ichar
(
a
(
2
:
2
))
/=
0
)
STOP
2
write
(
s
,
"(A)"
)
a
end