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

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |WAITING
   Last reconfirmed|                            |2018-05-04
     Ever confirmed|0                           |1

--- Comment #4 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Compiling

function constr_quark_loopline(ho,sho) result(cl)
  integer, dimension(sho), intent(in) :: ho
  integer, dimension(sho)             :: hor
  integer, intent(in)                 :: sho
end function constr_quark_loopline

with various version of gfortran gives

pr85575.f90:4:44:

   integer, intent(in)                 :: sho
                                            1
Error: Symbol 'sho' at (1) already has basic type of REAL
pr85575.f90:2:21:

   integer, dimension(sho), intent(in) :: ho
                     1
Error: Expression at (1) must be of INTEGER type, found REAL
...