Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/bounds_check_15.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 |
|---|---|
| 21 j = 0 | 21 j = 0 |
| 22 if (present (mnem_list)) then | 22 if (present (mnem_list)) then |
| 23 do i = 1, size (mnem_list) | 23 do i = 1, size (mnem_list) |
| 24 if (mnem_list(i) /= "") then | 24 if (mnem_list(i) /= "") then |
| 25 j = j + 1 | 25 j = j + 1 |
| 26 if (j > len (ml)/8) call abort () | 26 if (j > len (ml)/8) STOP 1 |
| 27 ml((j-1)*8+1:(j-1)*8+8) = mnem_list(i) | 27 ml((j-1)*8+1:(j-1)*8+8) = mnem_list(i) |
| 28 end if | 28 end if |
| 29 end do | 29 end do |
| 30 end if | 30 end if |
| 31 if (j > 0) print *, trim (ml(1:8)) | 31 if (j > 0) print *, trim (ml(1:8)) |