gcc/testsuite/gfortran.dg/hollerith4.f90

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