gcc/testsuite/gfortran.dg/transfer_hollerith_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O2" }
   3 ! PR 31972, ICE in transfer of Hollerith constant
   4   integer, dimension(1) :: i
   5   integer :: j
   6   i = (/ transfer(4HSOLR, 0) /)
   7
   8   j = transfer(0, 4HSOLR) ! { dg-error "must not be HOLLERITH" }
   9 end
  10
  11 ! { dg-warning "Hollerith constant" "const" { target *-*-* } 6 }
  12
  13 ! { dg-warning "Hollerith constant" "const" { target *-*-* } 8 }
  14