Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/pr21177.f90 @ 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
38 integer, pointer :: i 38 integer, pointer :: i
39 real, pointer :: r 39 real, pointer :: r
40 complex(4), pointer :: c4 40 complex(4), pointer :: c4
41 complex(8), pointer :: c8 41 complex(8), pointer :: c8
42 42
43 if (tt(l) /= 0) call abort() 43 if (tt(l) /= 0) STOP 1
44 if (tt(i) /= 1) call abort() 44 if (tt(i) /= 1) STOP 2
45 if (tt(r) /= 2) call abort() 45 if (tt(r) /= 2) STOP 3
46 if (tt(c4) /= 3) call abort() 46 if (tt(c4) /= 3) STOP 4
47 if (tt(c8) /= 4) call abort() 47 if (tt(c8) /= 4) STOP 5
48 if (tt(null(l)) /= 0) call abort() 48 if (tt(null(l)) /= 0) STOP 6
49 if (tt(null(i)) /= 1) call abort() 49 if (tt(null(i)) /= 1) STOP 7
50 if (tt(null(r)) /= 2) call abort() 50 if (tt(null(r)) /= 2) STOP 8
51 if (tt(null(c4)) /= 3) call abort() 51 if (tt(null(c4)) /= 3) STOP 9
52 if (tt(null(c8)) /= 4) call abort() 52 if (tt(null(c8)) /= 4) STOP 10
53 end program test 53 end program test