gcc/testsuite/gfortran.dg/g77/funderscoring.f

   1 C Test compiler flags: -funderscoring
   2 C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
   3 C
   4 C { dg-do compile }
   5 C { dg-options "-funderscoring" }
   6       call aaabbbccc
   7       end
   8 C { dg-final { scan-assembler "aaabbbccc_" } }