diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2008-06-25 23:04:33 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2008-06-25 23:04:33 +0000 |
| commit | 811d3cd3df6ac9847ab3de583c0e03d941bd6898 (patch) | |
| tree | 5499b47a64e3f601ea22fe21b340401bb7e10eec | |
| parent | 0edb82cb9fcf3740ea944359a7e15c4f2ae57d55 (diff) | |
| download | gcc-811d3cd3df6ac9847ab3de583c0e03d941bd6898.zip gcc-811d3cd3df6ac9847ab3de583c0e03d941bd6898.tar.gz gcc-811d3cd3df6ac9847ab3de583c0e03d941bd6898.tar.bz2 | |
re PR fortran/36526 (pointer in pure function)
2008-06-25 Paul Thomas <pault@gcc.gnu.org>
PR fortran/36526
* interface.c (check_intents): Correct error where the actual
arg was checked for a pointer argument, rather than the formal.
2008-06-25 Paul Thomas <pault@gcc.gnu.org>
PR fortran/36526
* gfortran.dg/proc_formal_proc_2.f90: New test.
From-SVN: r137125
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pure_formal_proc_2.f90 | 48 |
3 files changed, 59 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 420218f..3490e23 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2008-06-25 Paul Thomas <pault@gcc.gnu.org> + + PR fortran/36526 + * interface.c (check_intents): Correct error where the actual + arg was checked for a pointer argument, rather than the formal. + 2008-06-24 Paul Thomas <pault@gcc.gnu.org> PR fortran/34371 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c7a2743..dc56129 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-06-25 Paul Thomas <pault@gcc.gnu.org> + + PR fortran/36526 + * gfortran.dg/proc_formal_proc_2.f90: New test. + 2008-06-25 Richard Guenther <rguenther@suse.de> * gcc.c-torture/compile/20080625-1.c: New testcase. diff --git a/gcc/testsuite/gfortran.dg/pure_formal_proc_2.f90 b/gcc/testsuite/gfortran.dg/pure_formal_proc_2.f90 new file mode 100644 index 0000000..ec7d06e --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pure_formal_proc_2.f90 @@ -0,0 +1,48 @@ +! { dg-do compile } +! Tests the fix for PR36526, in which the call to getStrLen would +! generate an error due to the use of a wrong symbol in interface.c +! +! Contributed by Bálint Aradi <aradi@bccms.uni-bremen.de> +! +module TestPure + implicit none + + type T1 + character(10) :: str + end type T1 + +contains + + pure function getT1Len(self) result(t1len) + type(T1), pointer :: self + integer :: t1len + + t1len = getStrLen(self%str) + + end function getT1Len + + + pure function getStrLen(str) result(length) + character(*), intent(in) :: str + integer :: length + + length = len_trim(str) + + end function getStrLen + +end module TestPure + + +program Test + use TestPure + implicit none + + type(T1), pointer :: pT1 + + allocate(pT1) + pT1%str = "test" + write (*,*) getT1Len(pT1) + deallocate(pT1) + +end program Test +! { dg-final { cleanup-modules "TestPure" } } |