org.eclipse.photran.core.vpg.tests/parser-test-code/reg_tests/valref.f90 - ptp/org.eclipse.photran - Git at Google

 subroutine s(%val(f), %ref(g))
 end subroutine

 function f(%val(f), %ref(g))
 end function
	subroutine s(%val(f), %ref(g))
	end subroutine

	function f(%val(f), %ref(g))
	end function