[Bug fortran/29459] Spurious warning about uninitialized optional arguments

[fxcoudert at gcc dot gnu dot org]

------- Comment #3 from fxcoudert at gcc dot gnu dot org  2007-07-04 07:44 
-------
(In reply to comment #2)
> *** Bug 31688 has been marked as a duplicate of this bug. ***

Code from PR31688:

MODULE test
  IMPLICIT NONE
CONTAINS
  SUBROUTINE overlap(s, lds, pab, force_a)
    INTEGER, INTENT(IN)                         :: lds
    REAL, DIMENSION(lds, lds, *), INTENT(INOUT) :: s
    REAL, DIMENSION(:), INTENT(IN), OPTIONAL    :: pab
    REAL, INTENT(OUT)                           :: force_a

    if(.not.present(pab)) return
    force_a = pab(1)*s(1,1,1)
  END SUBROUTINE
END MODULE test


-- 


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