gcc/testsuite/gfortran.dg/dec-comparison-character_3.f90

   1 ! { dg-do compile }
   2 !
   3 ! Test case contributed by Mark Eggleston  <mark.eggleston@codethink.com>
   4 !
   5
   6 include "dec-comparison-character_1.f90"
   7
   8 ! { dg-warning "Legacy Extension: Hollerith constant at" " " { target *-*-* } 8 }
   9 ! { dg-warning "Legacy Extension: Hollerith constant at" " " { target *-*-* } 9 }
  10 ! { dg-warning "Legacy Extension: Hollerith constant at" " " { target *-*-* } 10 }
  11 ! { dg-warning "Legacy Extension: Hollerith constant at" " " { target *-*-* } 11 }
  12 ! { dg-warning "Legacy Extension: Hollerith constant at" " " { target *-*-* } 12 }
  13 ! { dg-warning "Legacy Extension: Hollerith constant at" " " { target *-*-* } 13 }
  14 ! { dg-warning "Legacy Extension: Hollerith constant at" " " { target *-*-* } 14 }
  15 ! { dg-warning "Legacy Extension: Hollerith constant at" " " { target *-*-* } 15 }
  16 ! { dg-warning "Legacy Extension: Hollerith constant at" " " { target *-*-* } 16 }
  17 ! { dg-warning "Extension: Conversion from HOLLERITH to CHARACTER" " " { target *-*-* } 8 }
  18 ! { dg-error "Operands of comparison operator" " " { target *-*-* } 9 }
  19 ! { dg-error "Operands of comparison operator" " " { target *-*-* } 10 }
  20 ! { dg-error "Operands of comparison operator" " " { target *-*-* } 11 }
  21 ! { dg-error "Operands of comparison operator" " " { target *-*-* } 12 }
  22 ! { dg-error "Operands of comparison operator" " " { target *-*-* } 13 }
  23 ! { dg-error "Operands of comparison operator" " " { target *-*-* } 14 }
  24 ! { dg-error "Operands of comparison operator" " " { target *-*-* } 15 }
  25 ! { dg-error "Operands of comparison operator" " " { target *-*-* } 16 }
  26