1! { dg-do run }
2! { dg-require-effective-target fortran_large_real }
3program main
4  integer,parameter :: k = selected_real_kind (precision (0.0_8) + 1)
5  real(kind=k) a,b,c
6  a = 1.1_k
7  open(10,convert="swap",form="unformatted") ! { dg-warning "Extension: CONVERT" }
8  write(10) a
9  backspace 10
10  read (10) b
11  close(10,status="delete")
12  if (a /= b) call abort
13  write (11) a
14  backspace 11
15  open (11,form="unformatted")
16  read (11) c
17  if (a .ne. c) call abort
18  close (11, status="delete")
19end program main
20