Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/pr21177.f90 @ 131:84e7813d76e9
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 |