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)) |