1! { dg-do compile } 2! { dg-options "-c" } 3! 4! Functions shall not have an initializer. 5! 6! Some tests were moved from func_decl_4.f90 to here. 7! 8 9function f1() ! { dg-error "cannot have an initializer" } 10 integer :: f1 = 42 11end function 12 13function f2() RESULT (r) ! { dg-error "cannot have an initializer" } 14 integer :: r = 42 15end function 16