Mercurial > hg > CbC > CbC_gcc
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 |