Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/pointer_init_4.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 |
---|---|
32 procedure(f2), pointer, nopass :: ppc => f2 | 32 procedure(f2), pointer, nopass :: ppc => f2 |
33 end type | 33 end type |
34 | 34 |
35 type (t) :: u | 35 type (t) :: u |
36 | 36 |
37 if (pp()/=42) call abort() | 37 if (pp()/=42) STOP 1 |
38 if (u%ppc()/=43) call abort() | 38 if (u%ppc()/=43) STOP 2 |
39 | 39 |
40 end | 40 end |