From 39e9dcfc5cd81f5e4d8a065ffe5048621ffbe149 Mon Sep 17 00:00:00 2001
From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 1 Mar 2006 06:14:32 +0000
Subject: 2006-02-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/26136
	* gfortran.dg/namelist_23.f90: New test.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111598 138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/testsuite/ChangeLog                   |  5 +++
 gcc/testsuite/gfortran.dg/namelist_23.f90 | 53 +++++++++++++++++++++++++++++++
 2 files changed, 58 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/namelist_23.f90

(limited to 'gcc')

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5b2507cf1c9..0b27651048b 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/26136
+	* gfortran.dg/namelist_23.f90: New test.
+
 2006-02-28  Roger Sayle  <roger@eyesopen.com>
 
 	PR middle-end/14752
diff --git a/gcc/testsuite/gfortran.dg/namelist_23.f90 b/gcc/testsuite/gfortran.dg/namelist_23.f90
new file mode 100644
index 00000000000..70a0080ceb2
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/namelist_23.f90
@@ -0,0 +1,53 @@
+!{ dg-do run }
+! PR26136 Filling logical variables from namelist read when object list is not
+! complete.  Test case derived from PR.
+! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+program read_logical
+   implicit none
+   logical, dimension(4) :: truely
+   integer, dimension(4) :: truely_a_very_long_variable_name
+   namelist /mynml/ truely
+   namelist /mynml/ truely_a_very_long_variable_name
+
+   truely = .false.
+   truely_a_very_long_variable_name = 0
+
+   open(10, status="scratch")
+   write(10,*) "&mynml"
+   write(10,*) "truely       = trouble,    traffic .true"
+   write(10,*) "truely_a_very_long_variable_name  = 4,      4,      4"
+   write(10,*) "/"
+   rewind(10)
+   read (10, nml=mynml, err = 1000)
+   if (.not.all(truely(1:3))) call abort()
+   if (.not.all(truely_a_very_long_variable_name(1:3).eq.4)) call abort()
+   
+   truely = .false.
+   truely_a_very_long_variable_name = 0
+
+   rewind(10)
+   write(10,*) "&mynml"
+   write(10,*) "truely       = .true., .true.,"
+   write(10,*) "truely_a_very_long_variable_name  = 4,      4,      4"
+   write(10,*) "/"
+   rewind(10)
+   read (10, nml=mynml, err = 1000)
+   if (.not.all(truely(1:2))) call abort()
+   if (.not.all(truely_a_very_long_variable_name(1:3).eq.4)) call abort()
+
+   truely = .true.
+   truely_a_very_long_variable_name = 0
+
+   rewind(10)
+   write(10,*) "&mynml"
+   write(10,*) "truely       = .false., .false.,"
+   write(10,*) "truely_a_very_long_variable_name  = 4,      4,      4"
+   write(10,*) "/"
+   rewind(10)
+   read (10, nml=mynml, err = 1000)
+   if (all(truely(1:2))) call abort()
+   if (.not.all(truely_a_very_long_variable_name(1:3).eq.4)) call abort()
+   close(10)
+   stop
+1000 call abort()
+end program read_logical
-- 
cgit v1.2.1