[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 #5 from Jürgen Reuter <juergen.reuter at desy dot de> ---
Yes, as external function the error is thrown, but not as module procedure.
So do 
module foo
  implicit none
contains
   function quark ...
     <declarations>
    end function ...
end module ...
This will compile.