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 (2018-10-24)
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