2 ! { dg-options "-fbounds-check" }
6 integer, dimension (5) :: field
8 type (t), dimension (2) :: a
14 type (xyz_type), dimension(3) :: xyz
15 character(len=80) :: s
22 if (trim(adjustl(s)) /= "11111") call abort
27 if (sum(a(foo(calls))%field) /= 0) call abort
28 if (calls .ne. 1) call abort
38 integer function bar ()
39 integer, save :: i = 1