2 ! { dg-require-effective-target fortran_large_real }
4 integer,parameter :: k
= selected_real_kind (precision (0.0_8
) + 1)
7 open(10,convert
="swap",form
="unformatted") ! { dg-warning "Extension: CONVERT" }
11 close(10,status
="delete")
12 if (a
/= b
) call abort
15 open (11,form
="unformatted")
17 if (a
.ne
. c
) call abort
18 close (11, status
="delete")