From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001
From: upstream source tree <ports@midipix.org>
Date: Sun, 15 Mar 2015 20:14:05 -0400
Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified
 gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream
 tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.
---
 gcc/testsuite/gfortran.dg/pr17286.f90 | 44 +++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/pr17286.f90

(limited to 'gcc/testsuite/gfortran.dg/pr17286.f90')

diff --git a/gcc/testsuite/gfortran.dg/pr17286.f90 b/gcc/testsuite/gfortran.dg/pr17286.f90
new file mode 100644
index 000000000..e9beb6d37
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr17286.f90
@@ -0,0 +1,44 @@
+! { dg-do run }
+! PR17286
+! Namelist read failed when spaces exist between the '=' and the numbers
+! This is a libgfortran bug
+! Derived from testcase provided by Paul Thomas <paulthomas2@wanadoo.fr>
+       program bug3
+       integer num1 , num2 , num3 , num4 
+       data num3  / 42 /
+       data num4  / 56 /
+       namelist /mynml1/ num1,num2
+       namelist /mynml2/ num3,num4
+       logical dbg
+       data dbg / .FALSE. /
+       open(unit=10,status='SCRATCH')
+       write(10,'(A)') "&mynml1,num1= 16,num2=32,&end"
+!
+! write mynml2
+!
+       write(10,mynml2)
+       rewind(10)
+!
+! now read back
+!
+       num1 = -1
+       num2 = -1
+       read(10,mynml1)
+       if (num1.eq.16.and.num2.eq.32) then
+          if (dbg) write(*,mynml1)
+       else
+          if (dbg) print *, 'expected 16 32 got ',num1,num2
+          call abort
+       endif
+       num3 = -1
+       num4 = -1
+       read(10,mynml2)
+       if (num3.eq.42.and.num4.eq.56) then
+          if (dbg) write(*,mynml2)
+       else
+          if (dbg) print *, 'expected 42 56 got ',num3,num4
+          call abort
+       endif
+
+       close(10)
+       end
-- 
cgit v1.2.3