gcc/testsuite/gfortran.dg/hollerith4.f90

   1 ! { dg-do run }
   2 ! Test Hollerith constants assigned to allocatable array
   3 ! and used in I/O list.
   4
   5 integer, allocatable :: c (:,:)
   6 character (len = 20) ch
   7 allocate (c(1,2))
   8
   9 c(1,1) = 4H(A4)
  10 c(1,2) = 4H(A5)
  11
  12 write (ch, "(2A4)") c
  13 if (ch .ne. "(A4)(A5)") call abort()
  14 write (ch, c) 'Hello'
  15 if (ch .ne. "Hell") call abort()
  16 write (ch, c (1,2)) 'Hello'
  17 if (ch .ne. "Hello") call abort()
  18
  19 write (ch, *) 5Hhello
  20 if (ch .ne. " hello") call abort()
  21 write (ch, "(A5)") 5Hhello
  22 if (ch .ne. "hello") call abort()
  23
  24 end
  25
  26 ! { dg-warning "Hollerith constant" "const" { target *-*-* } 9 }
  27 ! { dg-warning "Conversion" "conversion" { target *-*-* } 9 }
  28
  29 ! { dg-warning "Hollerith constant" "const" { target *-*-* } 10 }
  30 ! { dg-warning "Conversion" "conversion" { target *-*-* } 10 }
  31
  32 ! { dg-warning "Non-character in FORMAT tag" "" { target *-*-* } 14 }
  33
  34 ! { dg-warning "Non-character in FORMAT tag" "" { target *-*-* } 16 }
  35
  36 ! { dg-warning "Hollerith constant" "const" { target *-*-* } 19 }
  37 ! { dg-warning "Hollerith constant" "const" { target *-*-* } 21 }
  38