1 ! { dg-do compile } 2 ! { dg-options "-w" } 3 ! Program to test invalid Hollerith constant. 4 Program test 5 implicit none 6 integer i 7 i = 0H ! { dg-error "at least one character" } 8 i = 4_8H1234 ! { dg-error "should be default" } 9 end 10