gcc/testsuite/gfortran.dg/hollerith2.f90

   1        ! { dg-do run }
   2        ! Program to test Hollerith constant.
   3        Program test
   4        implicit none
   5        integer i,j
   6        real r, x, y
   7        parameter (i = 4h1234)
   8        parameter (r = 4hdead)
   9        parameter (y = 4*r)
  10        parameter (j = selected_real_kind (i))
  11        x = 4H1234
  12        x = sin(r)
  13        x = x * r
  14        x = x / r
  15        x = x + r
  16        x = x - r
  17        end
  18 ! { dg-warning "Hollerith constant" "const" { target *-*-* } 7 }
  19 ! { dg-warning "Conversion" "conversion" { target *-*-* } 7 }
  20
  21 ! { dg-warning "Hollerith constant" "const" { target *-*-* } 8 }
  22 ! { dg-warning "Conversion" "conversion" { target *-*-* } 8 }
  23
  24 ! { dg-warning "Hollerith constant" "const" { target *-*-* } 11 }
  25 ! { dg-warning "Conversion" "conversion" { target *-*-* } 11 }
  26