[patch, fortran] Fix pointers not escaping via C_PTR

[Thomas Koenig]

Hi Jerry,

> I think you want to to IF .... STOP instead of printing some test values 
> or dou you just want dg-conpile?

You're correct, I wanted a dg-do run.

Here is the version of the test case that I committed.

Thanks for the review (and the other one).

Regards

	Thomas
-------------- next part --------------
A non-text attachment was scrubbed...
Name: c_ptr_tests_19.f90
Type: text/x-fortran
Size: 781 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20190309/4aad67fc/attachment.bin>