bencch Public

Watch 0 Fork 0 Star 0

Fortran · 214 bytes Raw Blame History

  
        1
        ! CHECK: 25
      
        2
        program test_nested
      
        3
            implicit none
      
        4
            integer :: i, j, total
      
        5
            total = 0
      
        6
            do i = 1, 5
      
        7
                do j = 1, 5
      
        8
                    total = total + 1
      
        9
                end do
      
        10
            end do
      
        11
            print *, total
      
        12
        end program
      
        13

1	! CHECK: 25
2	program test_nested
3	implicit none
4	integer :: i, j, total
5	total = 0
6	do i = 1, 5
7	do j = 1, 5
8	total = total + 1
9	end do
10	end do
11	print *, total
12	end program
13