Skip to main content

ADD1.F95

	PROGRAM ADD1
!
! Purpose: A program to add two integers and display the integers
!          and their sum.
!
	IMPLICIT NONE
	INTEGER::I,J
	INTEGER::K
!
	I=6
	J=13
	K=I+J
	WRITE(*,*)I,J,K
	STOP
	END PROGRAM ADD1