1! { dg-do run }
2! { dg-options "-fbackslash" }
3!
4! Testcase from PR36162
5module m
6 character(*), parameter :: a ='H\0z'
7end module m
8
9 use m
10 character(len=20) :: s
11 if (a /= 'H\0z') STOP 1
12 if (ichar(a(2:2)) /= 0) STOP 2
13 write (s,"(A)") a
14end
15