[patch, fortran] Fix PR 87673, rejects-valid

[Thomas Koenig]

Am 10.03.19 um 21:15 schrieb Steve Kargl:
> On Sun, Mar 10, 2019 at 09:04:18PM +0100, Thomas Koenig wrote:
> 
>> ! { dg-do compile }
>> ! PR 87673 - used to cause errors about non-pure functions.
>> !  A fragment from Richard Townsend's iso_varying_string, as modified by
>> ! Ian Harvey to include F2003 language capabilities. For copyright notices
>> ! see source at http://www.megms.com.au/download/aniso_varying_string.f90
> 
> Copyright notice?

This is what I copied from the PR.

> If it isn't some version of gpl or lgpl, then you might need
> to either get approval from FSF, get Richard Townshend to
> put the code that demonstrate the code under a gpl compatible
> copyright, or rewrite the example that demonstrates the bug.

You're probably right, I will fix this.  Ugh...

> BTW, I think Ian's bug report is actually a duplicate of
> another PR, but don't recall which one.

It was marked as a duplicate of PR 87734, but I unmarked it
because PR 87734 is fixed on trunk and this one is not :-)

Regards

	Thomas