1C Test case for PR fortran/3743
2C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
3C
4C { dg-do link }
5C { dg-options "-fcase-preserve -fintrin-case-initcap" }
6      integer   i
7      i = Bit_Size(i)
8      end
9