[COMMITTED] a68: Fix posix-lseek test

[Pietro Monteiro]

Open the file read only so parallel tests don't fail.

Signed-off-by: Pietro Monteiro <pietro@sociotechnical.xyz>
---
 gcc/testsuite/algol68/execute/posix-lseek.a68 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/testsuite/algol68/execute/posix-lseek.a68 b/gcc/testsuite/algol68/execute/posix-lseek.a68
index 85a69127e03..8f20dc53d97 100644
--- a/gcc/testsuite/algol68/execute/posix-lseek.a68
+++ b/gcc/testsuite/algol68/execute/posix-lseek.a68
@@ -1,4 +1,4 @@
-begin int fd = fopen ("../../ga68", file_o_default);
+begin int fd = fopen ("../../ga68", file_o_rdonly);
       assert (fd /= -1);
       assert (errno = 0);
       long long int offset;
-- 
2.43.0