[gcc.git] / gcc / testsuite / g77.dg / ftypeless-boz.f

C Test compiler flags: -ftypeless-boz
C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
C
C { dg-do run }
C { dg-options "-ftypeless-boz" }
      equivalence (i,r)
      r = Z'ABCD1234'
      j = Z'ABCD1234'
      if ( j .ne. i ) call abort
      end
Commit	Line	Data
41ae4ee6 DB	1	C Test compiler flags: -ftypeless-boz
	2	C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
	3	C
	4	C { dg-do run }
	5	C { dg-options "-ftypeless-boz" }
	6	equivalence (i,r)
	7	r = Z'ABCD1234'
	8	j = Z'ABCD1234'
	9	if ( j .ne. i ) call abort
	10	end