1C Test compiler flags: -fcase-preserve
2C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
3C
4C { dg-do run }
5C { dg-options "-fcase-preserve" }
6      i = 3
7      I = 4
8      if ( i .ne. 3 ) call abort
9      end
10