[Bug fortran/45466] Bus Error: C program calls Fortran Function which has returned value as Character string

["kargl at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #2 from kargl at gcc dot gnu dot org  2010-08-31 17:53 -------
Try compiling with -fdump-tree-original and inspecting the 
expected argument lists.  You really don't want to use a
function here.  Use a subroutine.

include <stdio.h>

void requestdouble_(double*, double*, char *, int *len);

int main()
{
    char str[20];
    int len;
    double lat=10.0;
    double lon=20.0;
    requestdouble_(&lat, &lon, str, &len);
    return 0;
}
subroutine requestdouble(rlat,rlng,str)
  IMPLICIT NONE
  REAL(KIND=8), INTENT(IN) :: rlat ! - latitude -
  REAL(KIND=8), INTENT(IN) :: rlng ! - longitude -
  CHARACTER(LEN=*) :: str
  PRINT *, ' requestdouble rlat=', rlat,' rlng=', rlng
  str='1111111111111111'
  RETURN
END subroutine requestdouble


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45466