program main
       USE sub !Then a comment
use other
       implicit none
       include 'common.inc'
       real :: a, b
       
       a = 3.
       b = 7.
		x = 5.
	b =x
       write(*,'(2(A,f3.1," "))')"a: ",a,"b: ",b
!       call swap(a,b)
       write(*,'(2(A,f3.1," "))')"a: ",a,"b: ",b
end program main