diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/typebound_proc_27.f03')
-rw-r--r-- | gcc/testsuite/gfortran.dg/typebound_proc_27.f03 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_27.f03 b/gcc/testsuite/gfortran.dg/typebound_proc_27.f03 index 06484942277..5c76feac8c8 100644 --- a/gcc/testsuite/gfortran.dg/typebound_proc_27.f03 +++ b/gcc/testsuite/gfortran.dg/typebound_proc_27.f03 @@ -46,24 +46,24 @@ program prog this = that ! (1) direct assignment: works (deep copy) that%i = [2, -5] !print *,this%i - if(any (this%i /= [3, 7])) call abort() + if(any (this%i /= [3, 7])) STOP 1 this = p ! (2) using a pointer works as well that%i = [10, 1] !print *,this%i - if(any (this%i /= [2, -5])) call abort() + if(any (this%i /= [2, -5])) STOP 2 this = find_x(that) ! (3) pointer function: used to fail (deep copy missing) that%i = [4, 6] !print *,this%i - if(any (this%i /= [10, 1])) call abort() + if(any (this%i /= [10, 1])) STOP 3 this = tab%tbp(that) ! other case: typebound procedure that%i = [8, 9] !print *,this%i - if(any (this%i /= [4, 6])) call abort() + if(any (this%i /= [4, 6])) STOP 4 tab%ppc => find_x this = tab%ppc(that) ! other case: procedure pointer component that%i = [-1, 2] !print *,this%i - if(any (this%i /= [8, 9])) call abort() + if(any (this%i /= [8, 9])) STOP 5 end block end program prog |