19 lines
565 B
Fortran
19 lines
565 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-c" }
|
|
!
|
|
! Functions shall not have an initializer.
|
|
!
|
|
|
|
function f1() ! { dg-error "cannot have an initializer" }
|
|
integer :: f1 = 42
|
|
end function
|
|
|
|
function f2() RESULT (r) ! { dg-error "cannot have an initializer" }
|
|
integer :: r = 42
|
|
end function
|
|
|
|
function f3() RESULT (f3) ! { dg-error "must be different than function name" }
|
|
integer :: f3 = 42
|
|
end function ! { dg-error "Expecting END PROGRAM" }
|
|
! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 }
|