Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/associate_28.f90 @ 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 |
|---|---|
| 42 x(i)%a=>y(i)%a | 42 x(i)%a=>y(i)%a |
| 43 sum_a = sum_a + sum (int (x(i)%a)) | 43 sum_a = sum_a + sum (int (x(i)%a)) |
| 44 End Do | 44 End Do |
| 45 end associate | 45 end associate |
| 46 End block outer | 46 End block outer |
| 47 if (sum_a .ne. 30) call abort | 47 if (sum_a .ne. 30) STOP 1 |
| 48 End Procedure | 48 End Procedure |
| 49 End Submodule SetPt | 49 End Submodule SetPt |
| 50 Program Test | 50 Program Test |
| 51 use TestMod_C | 51 use TestMod_C |
| 52 use TestMod_A | 52 use TestMod_A |