! { dg-do compile { target powerpc*-*-* } }
! { dg-options "-O2 -mlong-double-128 -mabi=ibmlongdouble" }

! Test to ensure that it reports an "Cannot simplify expression" error
! instead of throwing an ICE when the memory represent of the HOLLERITH
! string is not unique with ibm long double encoding.

program main
  integer, parameter :: k = 16
  real(kind = k):: b = 4h1234
end program main

! { dg-warning "Conversion from HOLLERITH" "warning" { target powerpc*-*-* } 10 }
! { dg-error "Cannot simplify expression" "error" { target powerpc*-*-* } 10 }