Bug 79330 - gfortran 5.4.0/6.3.0/7.0.0 misinterpret type of character literal bind(C,name=...)

[Steve Kargl]

On Wed, Feb 01, 2017 at 12:27:29PM -0800, Damian Rouson wrote:
> 
> 
> This a gfortran issue appears in the interface body below, but
> disappears if the procedure is implemented without a separate
> interface body. Apparently, the compiler is not importing
> variables from the host scope into the interface body.

Bummer.  An inelegant workaround seems to be

#define PREFIX "_gfortran_"

module caf_openmp_interface
  implicit none
  interface
    module subroutine this_image() bind(C,name=PREFIX // "caf_this_image")
      implicit none
    end subroutine
  end interface
end module


-- 
Steve
20161221 https://www.youtube.com/watch?v=IbCHE-hONow