gcc/testsuite/g77.dg/pr3743-3.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-lower" }
   6       integer   i
   7       i = bit_size(i)
   8       end