gcc/testsuite/gfortran.dg/unexpected_interface.f90

   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 }