armfortas Public

Watch 0 Fork 0 Star 0

Fortran · 135 bytes Raw Blame History

  
        1
        ! CHECK: 30
      
        2
        program arithmetic
      
        3
            implicit none
      
        4
            integer :: a, b, c
      
        5
            a = 10
      
        6
            b = 20
      
        7
            c = a + b
      
        8
            print *, c
      
        9
        end program
      
        10

1	! CHECK: 30
2	program arithmetic
3	implicit none
4	integer :: a, b, c
5	a = 10
6	b = 20
7	c = a + b
8	print *, c
9	end program
10