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