Non-F2003 feature? Use of c_loc() with assumed-shape arrays

[albgar]

Using an oldish (4.8.5) version of gfortran, I found the following error:

gfortran -c -o flook.o  -Iaotus/obj  ./src/flook.F90
./src/flook.F90:1681.16:

    ptr = c_loc(val)
                1
Error: Assumed-shape array 'val' at (1) cannot be an argument to the procedure 'c_loc' because it is not C interoperable

Support for interoperability of assumed-shape arrays is not part of Fortran 2003. It is codified in a supplement, and is part of Fortran 2018:

The Technical Specification ISO/IEC TS 29113:2012 on further interoperability of Fortran with C extends the interoperability support of Fortran 2003 and Fortran 2008. Besides removing some restrictions and constraints, it adds assumed-type (TYPE(*)) and assumed-rank (dimension) variables and allows for interoperability of assumed-shape, assumed-rank and deferred-shape arrays, including allocatables and pointers.

On the other hand, ifort 17 and not-very-new versions of gfortran work well.

[zerothi]

Agreed! I will fix this! Thanks.