[Bug fortran/40605] -fcheck=pointer: Problems with OPTIONAL

["janus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #2 from janus at gcc dot gnu dot org  2009-07-01 13:16 -------
Here is another test case which segfaults with -fcheck=pointer, even with the
fix from comment #0:

module m

  Interface matrixMult
     Module procedure matrixMult_C2
  End Interface

contains

  subroutine test
    implicit none
    complex, dimension(0:3,0:3) :: m1,m2
    print *,Trace(MatrixMult(m1,m2))
  end subroutine

  complex function trace(a)
    implicit none
    complex, intent(in),  dimension(0:3,0:3) :: a 
  end function trace

  function matrixMult_C2(a,b) result(matrix)
    implicit none
    complex, dimension(0:3,0:3) :: matrix,a,b
  end function matrixMult_C2

end


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2009-07-01 13:16:43
               date|                            |


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