gcc/testsuite/gfortran.dg/module_widestring_1.f90

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