[J3] Allocatation upon assignment of a bummy argument in an interoperable procedure
Vipul Parekh
parekhvs at gmail.com
Mon Oct 7 14:09:50 EDT 2019
Is the following code conforming?
subroutine sub(foo) bind(C, name="foo")
!.. Argument list
integer(c_int), allocatable, intent(out) :: foo
foo = 42 !<-- fails
!allocate( foo ); foo = 42 !<-- works
end subroutine
When foo is invoked from a companion C processor with a successfully
established C descriptor with the right attributes, the use of
ALLOCATE statement followed by the assignment works as I expect.
However allocation upon assignment, as shown above, fails.
Thank you,
Vipul Parekh
More information about the J3
mailing list