diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-12-04 17:56:55 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-12-04 17:56:55 +0000 |
| commit | da9055d29af60e521b94ef9d06e5e99f4e79e6a9 (patch) | |
| tree | 5f6e71850acc8fc72a303b3e8977d8f2ef788bc4 /gcc/testsuite/gfortran.dg/proc_ptr_2.f90 | |
| parent | b4df425bacd370bd1700ca7ba7e6fe4f830b5eb8 (diff) | |
| download | gcc-da9055d29af60e521b94ef9d06e5e99f4e79e6a9.tar.gz | |
2008-12-04 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r142432
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@142441 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/proc_ptr_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/proc_ptr_2.f90 | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_2.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_2.f90 index d19b81d6e47..6224dc5980b 100644 --- a/gcc/testsuite/gfortran.dg/proc_ptr_2.f90 +++ b/gcc/testsuite/gfortran.dg/proc_ptr_2.f90 @@ -6,8 +6,11 @@ PROCEDURE(REAL), POINTER :: ptr PROCEDURE(REAL), SAVE :: noptr ! { dg-error "attribute conflicts with" } +REAL :: x -ptr => cos(4.0) ! { dg-error "Invalid character" } +ptr => cos(4.0) ! { dg-error "Invalid procedure pointer assignment" } +ptr => x ! { dg-error "Invalid procedure pointer assignment" } +ptr => sin(x) ! { dg-error "Invalid procedure pointer assignment" } ALLOCATE(ptr) ! { dg-error "must be ALLOCATABLE" } |