--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gcc/testsuite/gfortran.dg/convert_2.f90	Fri Oct 27 22:46:09 2017 +0900
@@ -0,0 +1,20 @@
+! { dg-do run }
+! Check for correct ordering of character variables with CONVERT
+
+program main
+  implicit none
+  integer, parameter :: two_swap = 2**25
+  integer(kind=4) i,j
+  character(len=2) :: c,d
+  open(20,file="convert.dat",form="unformatted",convert="swap") ! { dg-warning "CONVERT" }
+  write (20) "ab"
+  close (20)
+  open(20,file="convert.dat",form="unformatted",access="stream")
+  read(20) i,c,j
+  if (i .ne. two_swap .or. j .ne. two_swap .or. c .ne. "ab") call abort
+  close (20)
+  open(20,file="convert.dat",form="unformatted",convert="swap") ! { dg-warning "CONVERT" }
+  read (20) d
+  close (20,status="delete")
+  if (d .ne. "ab") call abort
+end program main