[Bug fortran/31921] New: crash for FUNCTION with RESULT specifier

["beliavsky at aol dot com" <gcc-bugzilla at gcc dot gnu dot org>]

module mman 
implicit none
private 
public mskew,nskew
contains 
function nskew() result(y)
real :: y(1)
call skewm(y)
end function nskew
!
function mskew() 
real :: mskew(1) 
call skewm(mskew)
end function mskew
!
subroutine skewm(smat) 
real, intent(out) :: smat(1) 
smat = 0.0
end subroutine skewm
end module mman
!
program mtst 
use mman, only: mskew,nskew
implicit none 
print*,"(1) calling nskew"
print*,nskew()
print*,"(2) calling mskew"
print*,mskew()
print*,"(3) done"
end program mtst

Compiling with mingw gfortran 20070506 with the default options gives the
incorrect warning message

xfunc_bug.f90: In function 'mskew':
xfunc_bug.f90:13: warning: Function does not return a value

and at run time the output is

 (1) calling nskew
   0.000000    
 (2) calling mskew
<crash>


-- 
           Summary: crash for FUNCTION with RESULT specifier
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: beliavsky at aol dot com


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