testproc.for

来自「vc并行接口通讯程序,」· FOR 代码 · 共 12 行

      INTERFACE
	SUBROUTINE TESTPROC(VALPARM)
 	   !DEC$ ATTRIBUTES C :: TESTPROC
	   !DEC$ ATTRIBUTES VALUE :: VALPARM
	INTEGER VALPARM
	INTEGER B
	END SUBROUTINE
	END INTERFACE
      
	B=VALPARM
	PRINT *,B
	END