gcc/testsuite/gfortran.dg/hollerith_f95.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fall-intrinsics -std=f95" }
   3 ! PR15966, PR18781 & PR16531
   4 implicit none
   5 complex(kind=8) x(2)
   6 complex a(2,2)
   7 character*4 z
   8 character z1(4)
   9 character*4 z2(2,2)
  10 character*80 line
  11 integer i
  12 logical l
  13 real r
  14 character*8 c
  15
  16 data x /16Habcdefghijklmnop, 16Hqrstuvwxyz012345/
  17 data a /8H(i3),abc, 0, 4H(i4), 8H    (i9)/
  18 data z/4h(i5)/
  19 data z1/1h(,1hi,1h6,1h)/
  20 data z2/4h(i7),'xxxx','xxxx','xxxx'/
  21
  22 z2 (1,2) = 4h(i8)
  23 i = 4hHell
  24 l = 4Ho wo
  25 r = 4Hrld!
  26 write (line, '(3A4)') i, l, r
  27 if (line .ne. 'Hello world!') call abort
  28 i = 2Hab
  29 r = 2Hab
  30 l = 2Hab
  31 c = 2Hab
  32 write (line, '(3A4, 8A)') i, l, r, c
  33 if (line .ne. 'ab  ab  ab  ab      ') call abort
  34
  35 write(line, '(4A8, "!")' ) x
  36 if (line .ne. 'abcdefghijklmnopqrstuvwxyz012345!') call abort
  37
  38 write (line, a) 3
  39 if (line .ne. '  3') call abort
  40 write (line, a (1,2)) 4
  41 if (line .ne. '   4') call abort
  42 write (line, z) 5
  43 if (line .ne. '    5') call abort
  44 write (line, z1) 6
  45 if (line .ne. '     6') call abort
  46 write (line, z2) 7
  47 if (line .ne. '      7') call abort
  48 write (line, z2 (1,2)) 8
  49 if (line .ne. '       8') call abort
  50 write (line, '(16A)') z2
  51 if (line .ne. '(i7)xxxx(i8)xxxx') call abort
  52 call test (8h   hello)
  53 end
  54
  55 subroutine test (h)
  56 integer(kind=8) h
  57 character*80 line
  58
  59 write (line, '(8a)') h
  60 if (line .ne. '   hello') call abort
  61 end subroutine
  62
  63 ! { dg-error "Hollerith constant" "const" { target *-*-* } 16 }
  64
  65 ! { dg-error "Hollerith constant" "const" { target *-*-* } 17 }
  66
  67 ! { dg-error "Hollerith constant" "const" { target *-*-* } 18 }
  68
  69 ! { dg-error "Hollerith constant" "const" { target *-*-* } 19 }
  70
  71 ! { dg-error "Hollerith constant" "const" { target *-*-* } 20 }
  72
  73 ! { dg-error "Hollerith constant" "const" { target *-*-* } 22 }
  74
  75 ! { dg-error "Hollerith constant" "const" { target *-*-* } 23 }
  76
  77 ! { dg-error "Hollerith constant" "const" { target *-*-* } 24 }
  78
  79 ! { dg-error "Hollerith constant" "const" { target *-*-* } 25 }
  80
  81 ! { dg-error "Hollerith constant" "const" { target *-*-* } 28 }
  82
  83 ! { dg-error "Hollerith constant" "const" { target *-*-* } 29 }
  84
  85 ! { dg-error "Hollerith constant" "const" { target *-*-* } 30 }
  86
  87 ! { dg-error "Hollerith constant" "const" { target *-*-* } 31 }
  88
  89 ! { dg-error "Hollerith constant" "const" { target *-*-* } 52 }
  90
  91 ! { dg-error "Non-character in FORMAT tag" "" { target *-*-* } 38 }
  92
  93 ! { dg-error "Non-character in FORMAT tag" "" { target *-*-* } 40 }
  94
  95 ! { dg-error "Character array in FORMAT tag" "" { target *-*-* } 44 }
  96
  97 ! { dg-error "Character array in FORMAT tag" "" { target *-*-* } 46 }
  98
  99 ! { dg-error "Character array in FORMAT tag" "" { target *-*-* } 48 }
 100