FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/18197 (bus error on returning from a function)

Browse source 
fortran/
2005-12-14  Erik Edelmann  <eedelman@gcc.gnu.org>

        PR fortran/18197
        * resolve.c (resolve_formal_arglist): Remove code to set
        the type of a function symbol from it's result symbol.


testsuite/
2005-12-14  Erik Edelmann  <eedelman@gcc.gnu.org>

        PR fortran/18197
        * gfortran.dg/dummy_functions_1.f90: New.

From-SVN: r108555
This commit is contained in:
Erik Edelmann 2005-12-15 00:47:13 +00:00
parent a9573616d4
commit e46aceffcf
4 changed files with 48 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View file

@ -1,3 +1,9 @@
2005-12-14 Erik Edelmann <eedelman@gcc.gnu.org>
PR fortran/18197
* resolve.c (resolve_formal_arglist): Remove code to set
the type of a function symbol from it's result symbol.
2005-12-13 Richard Guenther <rguenther@suse.de>
* trans-expr.c (gfc_conv_substring): Use fold_build2 and

10
gcc/fortran/resolve.c
View file

@ -137,16 +137,6 @@ resolve_formal_arglist (gfc_symbol * proc)
{
if (!sym->attr.function || sym->result == sym)
gfc_set_default_type (sym, 1, sym->ns);
else
{
/* Set the type of the RESULT, then copy. */
if (sym->result->ts.type == BT_UNKNOWN)
gfc_set_default_type (sym->result, 1, sym->result->ns);
sym->ts = sym->result->ts;
if (sym->as == NULL)
sym->as = gfc_copy_array_spec (sym->result->as);
}
}
gfc_resolve_array_spec (sym->as, 0);

6
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2005-12-14 Erik Edelmann <eedelman@gcc.gnu.org>
PR fortran/18197
* gfortran.dg/dummy_functions_1.f90: New.
2005-12-14 Ulrich Weigand <uweigand@de.ibm.com>
PR rtl-optimization/25310
@ -38939,3 +38944,4 @@ rlsruhe.de>
correspond to c-torture 1.11.
* New file.

36
gcc/testsuite/gfortran.dg/dummy_functions_1.f90 Normal file
View file

@ -0,0 +1,36 @@
! { dg-do compile }
! PR 18197: Check that dummy functions with RESULT variable and dimension works.
module innerfun
contains
function f(n,x) result(y)
integer, intent(in) :: n
real, dimension(:), intent(in) :: x
real, dimension(n) :: y
y = 1
end function f
end module innerfun
module outerfun
contains
subroutine foo(n,funname)
integer, intent(in) :: n
real, dimension(n) :: y
real, dimension(2) :: x
interface
function funname(n,x) result(y)
integer, intent(in) :: n
real, dimension(:), intent(in) :: x
real, dimension(n) :: y
end function funname
end interface
y = funname(n, (/ 0.2, 0.3 /) )
end subroutine foo
end module outerfun
program test
use outerfun
use innerfun
call foo(3,f)
end program test