diff options
| author | Tobias Burnus <burnus@net-b.de> | 2013-12-10 00:17:06 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-12-10 00:17:06 +0100 |
| commit | 787f341b9d0bc293ebeae353669c737b192d978c (patch) | |
| tree | 34a086248553e432d525e18a0f45152d4c90fceb | |
| parent | 03fd2f60926c3730ff269a7aa9b05985ccf54273 (diff) | |
| download | gcc-787f341b9d0bc293ebeae353669c737b192d978c.zip gcc-787f341b9d0bc293ebeae353669c737b192d978c.tar.gz gcc-787f341b9d0bc293ebeae353669c737b192d978c.tar.bz2 | |
re PR fortran/59428 (FAIL: gfortran.dg/proc_ptr_result_4.f90 -O (test for excess errors) after r205791)
2013-12-10 Tobias Burnus <burnus@net-b.de>
PR fortran/59428
PR fortran/58099
PR fortran/58676
PR fortran/41724
* gfortran.dg/proc_ptr_result_4.f90: Fix proc-ptr interface.
From-SVN: r205838
| -rw-r--r-- | gcc/testsuite/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90 | 8 |
2 files changed, 15 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b1b043c..27c8168 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,11 @@ +2013-12-10 Tobias Burnus <burnus@net-b.de> + + PR fortran/59428 + PR fortran/58099 + PR fortran/58676 + PR fortran/41724 + * gfortran.dg/proc_ptr_result_4.f90: Fix proc-ptr interface. + 2013-12-09 Paolo Carlini <paolo.carlini@oracle.com> PR c++/59435 diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90 index 97e67e5..5dd67bf 100644 --- a/gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90 +++ b/gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90 @@ -8,7 +8,13 @@ contains function f() intrinsic :: sin - procedure(sin), pointer :: f + abstract interface + pure real function sin_interf(x) + real, intent(in) :: x + end function sin_interf + end interface + ! We cannot use "sin" directly as it is ELEMENTAL + procedure(sin_interf), pointer :: f f => sin end function f |