1 2 3 4 5
! { dg-do compile } ! PR fortran/91715 ! Code contributed Gerhard Steinmetz character(1function f() ! { dg-error "Syntax error in CHARACTER" } end