Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/goto_2.f90 @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
comparison
equal
deleted
inserted
replaced
111:04ced10e8804 | 131:84e7813d76e9 |
---|---|
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 |