Fortran/C interoperability program crashes at C_LOC - c++

Question

I had asked a related question before.
Passing a structured data type from Fortran to C++
But it was a duplicate of the following question:
Fortran derived types containing pointers to be accessible from C
I created a simple example, but my program crashes when calling the C_LOC
Here is the complete example (short, self-contained, executable)
File: mydata.f90
module mydata
type mytype
integer :: loaded
integer :: status
end type mytype
CONTAINS
FUNCTION GetHandle() RESULT(handle) BIND(C, NAME = 'GetHandle')
USE, INTRINSIC :: ISO_C_BINDING, ONLY: C_PTR, C_LOC
TYPE(C_PTR) :: handle
TYPE(mytype), POINTER :: p
ALLOCATE(p)
p % loaded = 1122334455
p % status = 1234567890
write(*, *) 'GetHandle:p_addr = ', loc(p)
write(*, *) 'GetHandle:p%loaded = ', p % loaded
write(*, *) 'GetHandle:p%status = ', p % status
handle = C_LOC(p)
END FUNCTION GetHandle
SUBROUTINE ReleaseHandle(handle) BIND(C, NAME = 'ReleaseHandle')
USE, INTRINSIC :: ISO_C_BINDING, ONLY: C_PTR, C_F_POINTER
TYPE(C_PTR), INTENT(IN), VALUE :: handle
TYPE(mytype), POINTER :: p
CALL C_F_POINTER(handle, p)
DEALLOCATE(p)
END SUBROUTINE ReleaseHandle
end module mydata
File: dostuff.f90
subroutine STUFF(handle, ier) BIND(C, NAME = 'STUFF')
use mydata
USE, INTRINSIC :: ISO_C_BINDING
implicit none
TYPE(C_PTR), INTENT(IN), VALUE :: handle
TYPE(mytype), POINTER :: p
INTEGER :: ier
CALL C_F_POINTER(handle, p)
write(*, *) 'FITC:p_addr = ', loc(p)
write(*, *) 'FITC:s%loaded = ', p % loaded
write(*, *) 'FITC:s%status = ', p % status
end
File: main.cpp
#include <cstdio>
#include <cstdlib>
using namespace std;
#ifdef __cplusplus
extern "C" {
#endif
void* GetHandle();
void ReleaseHandle(void* handle);
void STUFF(void *handle, int *ierr);
#ifdef __cplusplus
}
#endif
int main(int argc, const char* const argv[]) {
void *handle;
int ierr = 0;
handle = GetHandle();
STUFF(handle, &ierr);
ReleaseHandle(handle);
return 0;
}
I am using intel C++/fortran compiler on Linux 64 bit.
Any ideas how to fix the error?
Edit: The exact error message is as follows (gdb output).
Program received signal SIGSEGV, Segmentation fault.
0x00000000004031ff in MYDATA::gethandle (handle=<error reading variable: Cannot access memory at address 0x1>) at mydata.f90:20
20 handle = C_LOC(p)
(gdb) bt
#0 0x00000000004031ff in MYDATA::gethandle (handle=<error reading variable: Cannot access memory at address 0x1>) at mydata.f90:20
#1 0x0000000000402efa in main (argc=1, argv=0x7fffffffdf88) at main.cpp:19
Without gdb, there is simply c crash with Memory fault.