[Bug fortran/19546] New: Internal subroutine setting function return value gives internal compiler error

["nburrell at unc dot edu" <gcc-bugzilla at gcc dot gnu dot org>]

With gcc 4.0.0 20050119 
on powerpc-apple-darwin7.7.0 (Dual G5 mac running Mac OS X 10.3.7) 
and GCC configured with: /Users/nburrell/Desktop/gcc-4.0-cvs/gcc/configure --with-mpfr=/Users/
nburrell/usr --with-gmp=/Users/nburrell/usr --prefix=/Users/nburrell/usr --enable-
languages=c,f95

running the command gfortran -Wall -v -save-temps test_gfortran.f90 gives the following output:

nburrell@braeburn[~/isis_home/research/pvsim/test]$ gfortran -Wall -v -save-temps test_gfortran.f90
Driving: gfortran -Wall -v -save-temps test_gfortran.f90 -lgfortranbegin -lgfortran -shared-libgcc
Using built-in specs.
Configured with: /Users/nburrell/Desktop/gcc-4.0-cvs/gcc/configure --with-mpfr=/Users/nburrell/
usr --with-gmp=/Users/nburrell/usr --prefix=/Users/nburrell/usr --enable-languages=c,f95
Thread model: posix
gcc version 4.0.0 20050119 (experimental)
 /Users/nburrell/usr/libexec/gcc/powerpc-apple-darwin7.7.0/4.0.0/f951 test_gfortran.f90 -fPIC 
-quiet -dumpbase test_gfortran.f90 -auxbase test_gfortran -Wall -version -o test_gfortran.s
GNU F95 version 4.0.0 20050119 (experimental) (powerpc-apple-darwin7.7.0)
        compiled by GNU C version 4.0.0 20050118 (experimental).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
test_gfortran.f90: In function 'set_value':
test_gfortran.f90:15: internal compiler error: in gfc_conv_variable, at fortran/trans-expr.c:317
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.

where test_gfortran.f90 has the following contents:

    MODULE random_standard_normal_mod

      IMPLICIT NONE

    CONTAINS

      FUNCTION random_standard_normal()
        IMPLICIT NONE

        REAL :: y
        REAL :: random_standard_normal
        
        y = 4.

        CALL set_value
        RETURN

      CONTAINS

        SUBROUTINE set_value

          IMPLICIT NONE

          random_standard_normal = y
        END SUBROUTINE set_value
      END FUNCTION random_standard_normal
    END MODULE random_standard_normal_mod

-- 
           Summary: Internal subroutine setting function return value gives
                    internal compiler error
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: nburrell at unc dot edu
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: powerpc-apple-darwin7.7.0


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