2009-10-05 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / hollerith3.f90
blobb283f5f7c0bcd188bad61921c061b3454c96b859
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