gcc/testsuite/g77.dg/pr3743-2.f

   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-upper" }
   6       integer   i
   7       i = BIT_SIZE(i)
   8       end