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