(j3.2006) (SC22WG5.4381) [ukfortran] WG5 informal ballot re Interop. TR

[Aleksandar Donev]

On 12/06/10 13:24, Bill Long wrote:
> If we make that the case, then we have to also allow a C function to 
> call a BIND(C) Fortran subprogram that has a CLASS(*) dummy
No we don't Bill. An interface with a CLASS(*) dummy is NOT 
interoperable and no one has proposed to make it so. An interface with 
TYPE(*) dummy is. The question is: Can the actual argument be CLASS(*) 
or not.

interface
     subroutine sub(x) bind(c)
         type(*), dimension(:) :: x
     end subroutine
end interface

CLASS(*), ... :: x(:)

! Is this allowed and what does the C descriptor get filled with?
call sub(x(1:10:2))

Aleks

-- 
Aleksandar Donev, Assistant Professor of Mathematics
Courant Institute of Mathematical Sciences
Office: 909 Warren Weaver Hall, New York University
E-mail: donev at courant.nyu.edu
Phone: (212) 992-7315; Fax: (212) 995-4121
Mailing address: 251 Mercer St, New York, NY 10012
Web: http://cims.nyu.edu/~donev