mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-23 01:00:53 +08:00
Code Issues Packages Projects Releases Wiki Activity

Added a test case from a PR that was fixed by something else.

Browse Source 
2020-04-12  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/94091
	* gfortran.dg/char_length_22.f90: New test.

Committed ChangeLog entry.
This commit is contained in:
Thomas König 2020-04-12 17:02:08 +02:00
parent ce6437aa9b
commit 87be4cecfc
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2020-04-12 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/94091
* gfortran.dg/char_length_22.f90: New test.
2020-04-12 Iain Sandoe <iain@sandoe.co.uk>
* gcc.target/i386/indirect-thunk-1.c: Adjust for fno-common

11
gcc/testsuite/gfortran.dg/char_length_22.f90 Normal file
View File

@ -0,0 +1,11 @@
! { dg-do compile }
! { dg-options "-O -Wall" }
! PR 94091 - this used to give a bogus warning.
! Test case by "MikeS".
program tester
character(50) cname,fred
fred='1234567890123456789012345678901234567890' ! 40 characters
kk=len_trim(fred)
cname=fred(5:kk)
print *,kk,cname
end program tester