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" } 9end 10 11! { dg-warning "Hollerith constant" "const" { target *-*-* } 6 } 12 13! { dg-warning "Hollerith constant" "const" { target *-*-* } 8 } 14 15