gcc/testsuite/gfortran.dg/dec_char_conversion_in_data_4.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fdec -Wcharacter-truncation" }
   3 !
   4 ! Modified by Mark Eggleston <mark.eggleston@codethink.com>
   5 !
   6 include "dec_char_conversion_in_data_1.f90"
   7
   8 ! { dg-warning "character constant at \\(1\\) is truncated in conversion" " " { target *-*-* } 67 }
   9 ! { dg-warning "character constant at \\(1\\) is truncated in conversion" " " { target *-*-* } 68 }
  10 ! { dg-warning "character constant at \\(1\\) is truncated in conversion" " " { target *-*-* } 69 }
  11 ! { dg-warning "character constant at \\(1\\) is truncated in conversion" " " { target *-*-* } 70 }
  12 ! { dg-warning "Hollerith constant at \\(1\\) is truncated in conversion" " " { target *-*-* } 71 }
  13 ! { dg-warning "Hollerith constant at \\(1\\) is truncated in conversion" " " { target *-*-* } 72 }
  14 ! { dg-warning "Hollerith constant at \\(1\\) is truncated in conversion" " " { target *-*-* } 73 }
  15 ! { dg-warning "Hollerith constant at \\(1\\) is truncated in conversion" " " { target *-*-* } 74 }
  16
  17