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