Duplicated PUBLIC :: <id> statement

[clementval]

The following code is not compilable after going through the front-end/back-end workflow.

MODULE mod1
  IMPLICIT NONE
  PRIVATE

  INTERFACE netcdf_read_att_int
    MODULE PROCEDURE netcdf_read_att_int
  END INTERFACE netcdf_read_att_int

CONTAINS
  FUNCTION netcdf_read_att_int() result(res)
    INTEGER                      :: res
  END FUNCTION netcdf_read_att_int
END MODULE mod1

The resulting code shown below has two PUBLIC :: netcdf_read_att_int declaration which is not correct according to the standard.

MODULE mod1
 PRIVATE :: netcdf_read_att_int
 PRIVATE :: netcdf_read_att_int
 INTERFACE netcdf_read_att_int
   MODULE PROCEDURE netcdf_read_att_int
 END INTERFACE

CONTAINS
 FUNCTION netcdf_read_att_int () RESULT(res)
  INTEGER :: res
 END FUNCTION netcdf_read_att_int

END MODULE mod1

out.f90:3:30:

  PUBLIC :: netcdf_read_att_int
                              1
Error: ACCESS specification at (1) was already specified

[clementval]

@h-murai In your opinion, the two id from the interface and the function should be multilize CL_MULTI or they should be two distinct id?

[h-murai]

@clementval In my opinion, this case is actually an error because of a conflict of a name although gfortran accepts it. Another possible understanding is that the generic name from the interface overrides the internal function. I'm not sure which conforms to the standard...

[clementval]

@h-murai I'll try to have a look at the standard. I tried this example with Cray and PGI and both accept it as well

[h-murai]

@clementval For the current sample code, I think the id from the generic name and that from MODULE PROCEDURE, which is the same with the internal function, should be multilized.

It's the second case for CL_MULTI.

    CL_MULTI,     /* Both the derived type name and the generic procedure name
                   * OR
                   * Both the interface name and the generic procedure name */