[Bug fortran/85575] Acceptance of invalid code: ordering of declaration statements with implicit typing

[juergen.reuter at desy dot de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85575

--- Comment #8 from Jürgen Reuter <juergen.reuter at desy dot de> ---
module foo
 implicit none
contains 
  function constr_quark_loopline(ho,sho) result(cl)
    integer, dimension(sho), intent(in) :: ho
    integer, dimension(sho)             :: hor
    integer, intent(in)                 :: sho
    integer                             :: cl
  end function constr_quark_loopline
end module foo

This compiles with gfortran as a GNU extension, but throws an error (only) with
-std=f2008 etc.