gcc/testsuite/g77.dg/fcase-preserve.f

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