[thirdparty/gcc.git] / gcc / testsuite / gfortran.dg / boz_7.f90

! { dg-do compile }
! { dg-options "-std=f95 -pedantic" }
!
! PR fortran/34342
!
! Some BOZ extensions where not diagnosed
!
integer :: k, m
integer :: j = z'000abc' ! { dg-error "BOZ used outside a DATA statement" }
data k/x'0003'/ ! { dg-error "nonstandard syntax" }
data m/'0003'z/ ! { dg-error "nonstandard postfix" }
end
Commit	Line	Data
0bf0efd5 TB	1	! { dg-do compile }
	2	! { dg-options "-std=f95 -pedantic" }
	3	!
	4	! PR fortran/34342
	5	!
	6	! Some BOZ extensions where not diagnosed
	7	!
	8	integer :: k, m
00a4618b	9	integer :: j = z'000abc' ! { dg-error "BOZ used outside a DATA statement" }
8dc63166 SK	10	data k/x'0003'/ ! { dg-error "nonstandard syntax" }
8dc63166 SK	11	data m/'0003'z/ ! { dg-error "nonstandard postfix" }
0bf0efd5	12	end