Sign in
chromium
/
chromiumos
/
third_party
/
gcc
/
refs/heads/stabilize-6812.83.B
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
module_widestring_1.f90
blob: c34091015db9b36b740428fdd22ddac00f24c5e1 [
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'
)
call abort
if
(
ichar
(
a
(
2
:
2
))
/=
0
)
call abort
write
(
s
,
"(A)"
)
a
end