mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
15 lines
252 B
Fortran
15 lines
252 B
Fortran
! { 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
|