OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/32738 (Error: Function 'tree_size' at (1) has no IMPLICIT type)

Browse Source 
2007-07-19  Daniel Franke  <franke.daniel@gmail.com>

	PR fortran/32738
	* gfortran.dg/pr32768.f90: New test.

From-SVN: r126790
This commit is contained in:
Daniel Franke 2007-07-19 17:11:38 -04:00 committed by Daniel Franke
parent 972345f2c9
commit 532a6e9842
2 changed files with 49 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2007-07-19 Daniel Franke <franke.daniel@gmail.com>
PR fortran/32738
* gfortran.dg/pr32768.f90: New test.
2007-07-19 Thomas Koenig <tkoenig@gcc.gnu.org>
PR tree-optimzation/32635

44
gcc/testsuite/gfortran.dg/pr32738.f90 Normal file
View File

@ -0,0 +1,44 @@
! { dg-do compile }
! PR fortran/32738
!
! A regression that mysteriously appeared and disappeared again.
! Added to the testsuite "just in case".
!
! Contributed by Michael Richmond <michael DOT a DOT richmond AT nasa DT gov>
!
module cluster_definition
implicit none
integer, parameter, public:: cluster_size = 1000
end module cluster_definition
module cluster_tree
use cluster_definition, only: ct_cluster_size => cluster_size
implicit none
private
private:: ct_initialize, ct_dealloc, ct_tree_size
public:: initialize, dealloc, tree_size
interface initialize
module procedure ct_initialize
end interface
interface dealloc
module procedure ct_dealloc
end interface
interface tree_size
module procedure ct_tree_size
end interface
contains
subroutine ct_initialize()
end subroutine ct_initialize
subroutine ct_dealloc()
end subroutine ct_dealloc
function ct_tree_size(t) result(s)
integer :: t
integer :: s
s = 0
end function ct_tree_size
end module cluster_tree
program example
use cluster_tree
implicit none
print *, tree_size(1)
end program example