git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

* gfortran.fortran-torture/execute/contained_3.f90: New test. 

From-SVN: r83033
This commit is contained in:
Paul Brook 2004-06-12 15:37:23 +00:00 committed by Paul Brook
parent f814193b9d
commit b08eae9288
2 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2004-06-12 Paul Brook <paul@codesourcery.com>
* gfortran.fortran-torture/execute/contained_3.f90: New test.
2004-06-12 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> 2004-06-12 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/14923 PR fortran/14923

22
gcc/testsuite/gfortran.fortran-torture/execute/contained_3.f90 Normal file
View File

@ -0,0 +1,22 @@
! Program to test contained functions calling their siblings.
! This is tricky because we don't find the declaration for the sibling
! function until after the caller has been parsed.
program contained_3
call test
contains
subroutine test
if (sub(3) .ne. 6) call abort
end subroutine
integer function sub(i)
integer i
if (i .gt. 1) then
sub = sub2(i) * i
else
sub = 1
end if
end function
integer function sub2(i)
integer i
sub2 = sub(i - 1)
end function
end program