comparison gcc/testsuite/gfortran.dg/submodule_6.f08 @ 132:d34655255c78

update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
130:e108057fa461 132:d34655255c78
65 type is (t_imp) 65 type is (t_imp)
66 select type (q) 66 select type (q)
67 type is (t_b) 67 type is (t_b)
68 this%b = q 68 this%b = q
69 class default 69 class default
70 call abort 70 STOP 1
71 end select 71 end select
72 class default 72 class default
73 call abort 73 STOP 2
74 end select 74 end select
75 end procedure p_a 75 end procedure p_a
76 module procedure print 76 module procedure print
77 select type (this) 77 select type (this)
78 type is (t_imp) 78 type is (t_imp)
79 if (any (this%b%i .ne. [3,4,5])) call abort 79 if (any (this%b%i .ne. [3,4,5])) STOP 3
80 class default 80 class default
81 call abort 81 STOP 4
82 end select 82 end select
83 end procedure 83 end procedure
84 end submodule imp_p_a 84 end submodule imp_p_a
85 85
86 program p 86 program p