シンタックス・ハイライト対応記念
subroutine swap(a, b) integer,intent(inout) :: a, b integer :: c c = a a = b b = c end subroutine swap program main implicit none integer :: a, b read(*,*) a b = 3 call swap(a,b) write(*,'(2I5)') a, b end program main
何の言語かわかる人はほとんどないに違いない。ちなみに内容は適当です。