Fix race on temp file in gfortran streamio_*.f90 tests

	* gfortran.dg/streamio_4.f90, gfortran.dg/streamio_5.f90,
	* gfortran.dg/streamio_6.f90, gfortran.dg/streamio_7.f90,
	* gfortran.dg/streamio_10.f90, gfortran.dg/streamio_12.f90: Add
	suffix to the temporary filename to make it unique per testcase.

From-SVN: r229315

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 45dc22ec2556999dee8819e85a08be45ae8a81d8..c7cdd98f6dd0d5d6c66cd2d23b99ca8f7769bf44 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+2015-10-26  Maxim Kuvyrkov  <maxim.kuvyrkov@linaro.org>
+
+       * gfortran.dg/streamio_4.f90, gfortran.dg/streamio_5.f90,
+       * gfortran.dg/streamio_6.f90, gfortran.dg/streamio_7.f90,
+       * gfortran.dg/streamio_10.f90, gfortran.dg/streamio_12.f90: Add
+       suffix to the temporary filename to make it unique per testcase.
+
 2015-10-26  Richard Sandiford  <richard.sandiford@arm.com>
 
        * gcc.dg/torture/builtin-minmax-1.c: Don't run at -O0.

diff --git a/gcc/testsuite/gfortran.dg/streamio_10.f90 b/gcc/testsuite/gfortran.dg/streamio_10.f90
index b0c573e6fbe03860496ba6f499fa4881ce7c7ebf..9874405cc37f73ff8dc6b720c8feb8521c7b122e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/streamio_10.f90
+++ b/gcc/testsuite/gfortran.dg/streamio_10.f90
@@ -8,7 +8,7 @@ program stream_io_10
   integer(kind=8) :: thepos
   a = (/ 1, 2, 3, 4 /)
   b = a
-  open(10, file="teststream", access="stream")
+  open(10, file="teststream_streamio_10", access="stream")
   write(10) a
   inquire(10, pos=thepos)
   if (thepos.ne.17) call abort()

diff --git a/gcc/testsuite/gfortran.dg/streamio_12.f90 b/gcc/testsuite/gfortran.dg/streamio_12.f90
index 0b0d678a6e29097445f408f6f9d316ad4e04935f..f90d685248b88b0884ef190d42d83e1ed3d724e9 100644 (file)
--- a/gcc/testsuite/gfortran.dg/streamio_12.f90
+++ b/gcc/testsuite/gfortran.dg/streamio_12.f90
@@ -6,7 +6,7 @@ program streamtest
   character(1)   :: tchar
   integer        :: i,j,k
   real(kind=4), dimension(100,100) :: anarray
-  open(10, file="teststream", access="stream", form="unformatted")
+  open(10, file="teststream_streamio_12", access="stream", form="unformatted")
   anarray = 3.14159
   write(10) anarray
   write(10, pos=1) ! This is a way to position an unformatted file

diff --git a/gcc/testsuite/gfortran.dg/streamio_4.f90 b/gcc/testsuite/gfortran.dg/streamio_4.f90
index ce638a415add069037379fcbdbb36fcdcb9411c3..0ed3d2ed88e32c24a63b45055dc434ef74d0dcaa 100644 (file)
--- a/gcc/testsuite/gfortran.dg/streamio_4.f90
+++ b/gcc/testsuite/gfortran.dg/streamio_4.f90
@@ -9,7 +9,7 @@ program streamtest
   integer        :: i,j,k
   integer, parameter :: lines = 5231
    
-  open(10, file="teststream", access="stream", form="formatted")
+  open(10, file="teststream_streamio_4", access="stream", form="formatted")
   
   do i=1,lines
     do j=0,9
@@ -19,7 +19,7 @@ program streamtest
   
   close(10)
   
-  open(10, file="teststream", access="stream",&
+  open(10, file="teststream_streamio_4", access="stream",&
   &form="formatted", position="append")
   do i=1,lines
     do j=0,9

diff --git a/gcc/testsuite/gfortran.dg/streamio_5.f90 b/gcc/testsuite/gfortran.dg/streamio_5.f90
index 6fdf70779c0a5dda361aeb1385c7bb9f073c5178..fe7c21ce7d5a761ad13adfc797684c67822eda5d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/streamio_5.f90
+++ b/gcc/testsuite/gfortran.dg/streamio_5.f90
@@ -7,7 +7,7 @@ program streamtest5
   character(1)   :: tchar
   integer        :: i,j,k
    
-  open(10, file="teststream", access="stream", form="unformatted")
+  open(10, file="teststream_streamio_5", access="stream", form="unformatted")
   
   do i=1,1229
     do j=0,9
@@ -18,7 +18,7 @@ program streamtest5
   
   close(10)
   
-  open(10, file="teststream", access="stream", form="unformatted")
+  open(10, file="teststream_streamio_5", access="stream", form="unformatted")
   
   do i=1,1229
     do j=0,9

diff --git a/gcc/testsuite/gfortran.dg/streamio_6.f90 b/gcc/testsuite/gfortran.dg/streamio_6.f90
index 3857667b0d7c77fa3102e5f043411c132fc9489a..dc208899247ecf7ba140afc569df43ee55591af8 100644 (file)
--- a/gcc/testsuite/gfortran.dg/streamio_6.f90
+++ b/gcc/testsuite/gfortran.dg/streamio_6.f90
@@ -15,7 +15,7 @@ program streamio_6
   &    72, 81, 59, 24, 37, 43, 21, 54, 68, 31, 19, 79, 63, 41,&
   &    42, 12, 10, 62, 43, 9, 30, 9, 54, 35, 4, 5, 55, 3, 94 /
 
-  open(unit=15,file="teststream",access="stream",form="unformatted")
+  open(unit=15,file="teststream_streamio_6",access="stream",form="unformatted")
   do i=1,100
     k = a(i)
     write(unit=15, pos=k) achar(k)

diff --git a/gcc/testsuite/gfortran.dg/streamio_7.f90 b/gcc/testsuite/gfortran.dg/streamio_7.f90
index 7a7b2771282dc12ec29719ef71a1b2dbd602f3f2..4d6e4a0b68059f9592a51f35bbea7953a53b019c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/streamio_7.f90
+++ b/gcc/testsuite/gfortran.dg/streamio_7.f90
@@ -7,7 +7,7 @@ program streamtest
   character(1)   :: tchar
   integer        :: i,j,k
   real(kind=4), dimension(100,100) :: anarray
-  open(10, file="teststream", access="stream", form="unformatted")
+  open(10, file="teststream_streamio_7", access="stream", form="unformatted")
   anarray = 3.14159
   write(10) anarray
   anarray = 0.0