re PR fortran/83436 (Internal file cannot be accessed by UNFORMATTED data transfer...
authorThomas Koenig <tkoenig@gcc.gnu.org>
Wed, 20 Dec 2017 20:36:22 +0000 (20:36 +0000)
committerThomas Koenig <tkoenig@gcc.gnu.org>
Wed, 20 Dec 2017 20:36:22 +0000 (20:36 +0000)
2017-12-20  Thomas Koenig  <tkoenig@gcc.gnu.org>

PR fortran/83436
* gfortran.dg/internal_readwrite_4.f90: New test.

From-SVN: r255902

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/internal_readwrite_4.f90 [new file with mode: 0644]

index f063f26c225007df6d964576eec59f069a76e6cc..9f564ade9ce43e758c5e0bf7def70968cb62469a 100644 (file)
@@ -1,3 +1,8 @@
+2017-12-20  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+       PR fortran/83436
+       * gfortran.dg/internal_readwrite_4.f90: New test.
+
 2017-12-20  Jakub Jelinek  <jakub@redhat.com>
 
        PR ipa/83506
diff --git a/gcc/testsuite/gfortran.dg/internal_readwrite_4.f90 b/gcc/testsuite/gfortran.dg/internal_readwrite_4.f90
new file mode 100644 (file)
index 0000000..cd2e684
--- /dev/null
@@ -0,0 +1,30 @@
+! { dg-do  run }
+! PR 83436 - this used to cause an error.
+! Original test case by Daan van Vugt.
+module mod_random_seed
+  implicit none
+contains
+  !> Read an int from /dev/urandom
+  subroutine read_urandom_int(seed, ierr)
+    implicit none
+    integer, intent(out) :: seed
+    integer, intent(out) :: ierr
+    integer :: un
+    character(len=80) :: restart_file
+    write(restart_file,'(A,A)') 'jorek', '_restart.h5'
+
+    open(newunit=un, file="/dev/urandom", access="stream", &
+        form="unformatted", action="read", status="old", iostat=ierr)
+    if (ierr == 0) then
+       read(un) seed
+       close(un)
+    end if
+  end subroutine read_urandom_int
+end module mod_random_seed
+
+program test_random_seed
+  use mod_random_seed
+  implicit none
+  integer :: seed, ierr
+  call read_urandom_int(seed, ierr)
+end program test_random_seed