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