[Bug fortran/45337] gfortran accepts pointer initialization of DT dummy arguments w/ INTENT(OUT)

[burnus at gcc dot gnu dot org]

------- Comment #11 from burnus at gcc dot gnu dot org  2010-08-20 22:28 -------
(In reply to comment #7)
> Untested patch:

The patch is not sufficient as the following example shows for which no warning
is printed:

type t
end type t
type t2
  integer :: j = 7
end type t2
contains
  subroutine x(a, b, c)
    type(t) ,intent(OUT) :: a = t() ! Wrong
    type(t2) ,intent(OUT) :: b = t2() ! Wrong
    type(t2) ,intent(OUT) :: c ! OK, default initializer
end subroutine x
end


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45337