[gcc.git] / gcc / testsuite / g77.dg / pr3743-3.f

c Test case for PR fortran/3743
c Origin: David Billinghurst <David.Billinghurst@riotinto.com>
c
c { dg-do link }
c { dg-options "-fcase-preserve -fintrin-case-lower" }
      integer   i
      i = bit_size(i)
      end
Commit	Line	Data
e7daa976 DB	1	c Test case for PR fortran/3743
	2	c Origin: David Billinghurst <David.Billinghurst@riotinto.com>
	3	c
	4	c { dg-do link }
	5	c { dg-options "-fcase-preserve -fintrin-case-lower" }
	6	integer i
	7	i = bit_size(i)
	8	end