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