[patch, fortran] Implement FINDLOC

[Thomas Koenig]

Hi Dominique,

> With your patch, compiling the following test
> 
> program logtest3
>     implicit none
>     logical :: x = .true.
>     integer, parameter :: I_FINDLOC_BACK(1) = findloc([1,1],1, &
>        back=x)
> end program logtest3
> 
> gives an ICE

I sometimes wonder where you get all these test cases from...

Anyway, the attached patch fixes this, plus the print *, instead
of test for return values, plus the whitespace issues mentioned
by Bernhard. Patch gzipped this time to let it go through to
gcc-patches.

OK for trunk?

Regards

	Thomas

-------------- next part --------------
A non-text attachment was scrubbed...
Name: p15.diff.gz
Type: application/gzip
Size: 19931 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20181022/7a7a695a/attachment.gz>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: findloc_1.f90
Type: text/x-fortran
Size: 615 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20181022/7a7a695a/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: findloc_2.f90
Type: text/x-fortran
Size: 1059 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20181022/7a7a695a/attachment-0001.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: findloc_3.f90
Type: text/x-fortran
Size: 2731 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20181022/7a7a695a/attachment-0002.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: findloc_4.f90
Type: text/x-fortran
Size: 912 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20181022/7a7a695a/attachment-0003.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: findloc_5.f90
Type: text/x-fortran
Size: 2188 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20181022/7a7a695a/attachment-0004.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: findloc_6.f90
Type: text/x-fortran
Size: 1791 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20181022/7a7a695a/attachment-0005.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: findloc_7.f90
Type: text/x-fortran
Size: 311 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20181022/7a7a695a/attachment-0006.bin>