BUG: Passing LOC() Intrinsic Result to C Function Fails

MORE INFORMATION

Sample Code to Illustrate Problem and Workarounds

C Fortran Main Source Code
C Compile options needed: none

      INTERFACE
          SUBROUTINE MYFUNC(I)
          INTEGER I
          !MS$ATTRIBUTES VALUE :: I
          !MS$ATTRIBUTES C,ALIAS:'_myfunc' :: myfunc
          END SUBROUTINE MYFUNC
      END INTERFACE

      CHARACTER STR*3, TEMP*4
      INTEGER L

      STR = 'ABC'
      L = 3

C this fails
      CALL MYFUNC(LOC(STR(1:L)//CHAR(0)))

C these work
      CALL MYFUNC(LOC(STR//CHAR(0)))
      CALL MYFUNC(LOC(STR(1:3)//CHAR(0)))
      TEMP=STR(1:L)//CHAR(0)
      CALL MYFUNC(LOC(TEMP))
      END

------------

/* C Function Source Code:
   Compile options needed: /c
*/ 

#include <stdio.h>
void myfunc(char *s)
{
    long x;
    x = (long) s;
    printf("s: %x  String: %s\n", x, s);
}
				

Program Output