Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/goto_2.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 |
---|---|
51 999 i = -1 | 51 999 i = -1 |
52 end subroutine check_select | 52 end subroutine check_select |
53 | 53 |
54 i = 0 | 54 i = 0 |
55 call check_if (i) | 55 call check_if (i) |
56 if (i /= 2) call abort () | 56 if (i /= 2) STOP 1 |
57 call check_select (i) | 57 call check_select (i) |
58 if (i /= 2) call abort () | 58 if (i /= 2) STOP 2 |
59 end | 59 end |