! { 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 } | |