comparison gcc/testsuite/gfortran.dg/bound_1.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
7 7
8 type (test_type), target :: tt(2) 8 type (test_type), target :: tt(2)
9 integer i 9 integer i
10 10
11 i = ubound(tt(1)%a, 1) 11 i = ubound(tt(1)%a, 1)
12 if (i/=5) call abort() 12 if (i/=5) STOP 1
13 i = lbound(tt(1)%a, 1) 13 i = lbound(tt(1)%a, 1)
14 if (i/=1) call abort() 14 if (i/=1) STOP 2
15 15
16 i = ubound(tt, 1) 16 i = ubound(tt, 1)
17 if (i/=2) call abort() 17 if (i/=2) STOP 3
18 i = lbound(tt, 1) 18 i = lbound(tt, 1)
19 if (i/=1) call abort() 19 if (i/=1) STOP 4
20 end 20 end