bencch Public

Watch 0 Fork 0 Star 0

Fortran · 383 bytes Raw Blame History

  
        1
        ! CHECK: 136
      
        2
        program test_pressure
      
        3
            implicit none
      
        4
            integer :: a, b, c, d, e, f, g, h
      
        5
            integer :: i, j, k, l, m, n, o, p
      
        6
            a = 1
      
        7
            b = 2
      
        8
            c = 3
      
        9
            d = 4
      
        10
            e = 5
      
        11
            f = 6
      
        12
            g = 7
      
        13
            h = 8
      
        14
            i = 9
      
        15
            j = 10
      
        16
            k = 11
      
        17
            l = 12
      
        18
            m = 13
      
        19
            n = 14
      
        20
            o = 15
      
        21
            p = 16
      
        22
            print *, a + b + c + d + e + f + g + h + i + j + k + l + m + n + o + p
      
        23
        end program
      
        24

1	! CHECK: 136
2	program test_pressure
3	implicit none
4	integer :: a, b, c, d, e, f, g, h
5	integer :: i, j, k, l, m, n, o, p
6	a = 1
7	b = 2
8	c = 3
9	d = 4
10	e = 5
11	f = 6
12	g = 7
13	h = 8
14	i = 9
15	j = 10
16	k = 11
17	l = 12
18	m = 13
19	n = 14
20	o = 15
21	p = 16
22	print *, a + b + c + d + e + f + g + h + i + j + k + l + m + n + o + p
23	end program
24