Lines Matching defs:info
17 subroutine bar_foo_ab(info)19 integer, intent(out) :: info23 info = size(f_a%mv)25 allocate(f_a%mv(10),stat=info)26 if (info /= 0) then 27 info = -1 38 integer :: info40 call bar_foo_ab(info) 41 if (info .ne. 0) call abort ()42 call bar_foo_ab(info) 43 if (info .ne. 10) call abort ()