OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
2010-09-23 Daniel Kraft <d@domob.eu>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
proc_ptr_comp_3.f90
diff --git
a/gcc/testsuite/gfortran.dg/proc_ptr_comp_3.f90
b/gcc/testsuite/gfortran.dg/proc_ptr_comp_3.f90
index
4b866c0
..
67d5b53
100644
(file)
--- a/
gcc/testsuite/gfortran.dg/proc_ptr_comp_3.f90
+++ b/
gcc/testsuite/gfortran.dg/proc_ptr_comp_3.f90
@@
-38,7
+38,7
@@
type(t) :: x
x%ptr2 => x ! { dg-error "Invalid procedure pointer assignment" }
x%ptr2 => x ! { dg-error "Invalid procedure pointer assignment" }
-x => x%ptr2 ! { dg-error "
Pointer assignment to non-POINTER
" }
+x => x%ptr2 ! { dg-error "
Non-POINTER in pointer association context
" }
print *, x%ptr1() ! { dg-error "attribute conflicts with" }
call x%ptr2() ! { dg-error "attribute conflicts with" }
print *, x%ptr1() ! { dg-error "attribute conflicts with" }
call x%ptr2() ! { dg-error "attribute conflicts with" }