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