[patch, fortran] Fix PR 83012, rejects-valid regression with contiguous pointer

[Thomas Koenig]

Hello world,

the attached patch fixes the PR by looking at the function interface if
one exists.

Regression-tested. OK for trunk?

Regards

	Thomas

2017-11-17  Thomas Koenig  <tkoenig@gcc.gnu.org>

         PR fortran/83012
         * expr.c (gfc_is_simply_contiguous): If a function call through a
         class variable is done through a reference, check the function's
         interface.

2017-11-17  Thomas Koenig  <tkoenig@gcc.gnu.org>

         PR fortran/83012
         * gfortran.dg/contiguous_5.f90: New test.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: p1.diff
Type: text/x-patch
Size: 1071 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20171117/e25c578d/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: contiguous_5.f90
Type: text/x-fortran
Size: 500 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20171117/e25c578d/attachment-0001.bin>