1! { dg-do compile } 2! PR fortran/43592 3! Original code submitted by Joost VandeVondele 4! Dejagnu-ification by Steven G. Kargl 5! 6 interface assignment (=) 7 interface pseudo_scalar ! { dg-error "Unexpected INTERFACE statement" } 8 pure function double_tensor2odd (x, t2) result (xt2) 9! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 } 10