1! { dg-do compile }
2! { dg-options "-fdec -fno-dec" }
3!
4! PR fortran/87919
5!
6! Ensure that -fno-dec disables the usage of TYPE as an alias for PRINT.
7!
8
9include 'dec_type_print.f90'
10
11! { dg-error "Mangled derived type definition" "" { target *-*-* } 52 }
12! { dg-error "Invalid character in name" "" { target *-*-* } 53 }
13! { dg-error "Mangled derived type definition" "" { target *-*-* } 54 }
14! { dg-error "Invalid character in name" "" { target *-*-* } 55 }
15! { dg-error "Invalid character in name" "" { target *-*-* } 56 }
16! { dg-error "Invalid character in name" "" { target *-*-* } 57 }
17! { dg-error "Invalid character in name" "" { target *-*-* } 58 }
18! { dg-error "conflicts with PROCEDURE" "" { target *-*-* } 60 }
19! { dg-error "Syntax error in IF-clause" "" { target *-*-* } 80 }
20
21