! { dg-do compile }
!
! Test case contributed by Mark Eggleston  <mark.eggleston@codethink.com>

program test
  character(*), parameter :: h = 5hABCDE ! { dg-warning "HOLLERITH to CHARACTER\\(\\*\\)" }

  write(*,*) h
end program

! { dg-warning "Legacy Extension" "extension" { target \*-\*-\* } 6 }