PROGRAM main
	 USE myStructModule
	 IMPLICIT NONE

	 TYPE(myStruct) :: A 

	 A%i = 4; A%f = 3.14

	 CALL Print_myStruct(A)   ! C function

	END PROGRAM