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-lower" } 6 integer i 7 i = bit_size(i) 8 end 9