| ! { dg-do compile } | |
| ! PR fortran/104351 | |
| ! Contributed by G.Steinmetz | |
| program p | |
| implicit none | |
| type t | |
| end type | |
| type(t) :: f | |
| contains | |
| real function f() result(z) ! { dg-error "has an explicit interface" } | |
| z = 0.0 ! { dg-error "assignment" } | |
| end function f ! { dg-error "Expecting END PROGRAM" } | |
| end |