Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/dynamic_dispatch_8.f03 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
93 type(bar) :: a 93 type(bar) :: a
94 94
95 allocate(foo :: a%a) 95 allocate(foo :: a%a)
96 call a%doit() 96 call a%doit()
97 ! write(*,*) 'Getit value : ', a%getit() 97 ! write(*,*) 'Getit value : ', a%getit()
98 if (a%getit() .ne. 1) call abort 98 if (a%getit() .ne. 1) STOP 1
99 deallocate(a%a) 99 deallocate(a%a)
100 allocate(foo2 :: a%a) 100 allocate(foo2 :: a%a)
101 call a%doit() 101 call a%doit()
102 ! write(*,*) 'Getit value : ', a%getit() 102 ! write(*,*) 'Getit value : ', a%getit()
103 if (a%getit() .ne. 3) call abort 103 if (a%getit() .ne. 3) STOP 2
104 104
105 end program testd10 105 end program testd10