blob: 1d5bc6cd7e322ae61d1c37b326ac57dbf0b9ec34 [file] [log] [blame]
! { 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 }