[gcc r15-8954] testsuite: fortran: fix dg syntax errors

[Sam James via Gcc-cvs]

https://gcc.gnu.org/g:fed26e59d6771004a0649a98b1a16fa28a9bb1bd

commit r15-8954-gfed26e59d6771004a0649a98b1a16fa28a9bb1bd
Author: Sam James <s...@gentoo.org>
Date:   Thu Mar 27 00:14:21 2025 +0000

    testsuite: fortran: fix dg syntax errors
    
    No change in test results. The changes other than the first are
    arguably not errors, but still clearly wrong and mistakes.
    
    gcc/testsuite/ChangeLog:
    
            * gfortran.dg/associate_70.f90: Replace parenthesis with '}'.
            * gfortran.dg/bessel_3.f90: Drop extraneous parenthesis.
            * gfortran.dg/c_funloc_tests_6.f90: Ditto.
            * gfortran.dg/parity_2.f90: Ditto.

Diff:
---
 gcc/testsuite/gfortran.dg/associate_70.f90     | 2 +-
 gcc/testsuite/gfortran.dg/bessel_3.f90         | 2 +-
 gcc/testsuite/gfortran.dg/c_funloc_tests_6.f90 | 2 +-
 gcc/testsuite/gfortran.dg/parity_2.f90         | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/gcc/testsuite/gfortran.dg/associate_70.f90 
b/gcc/testsuite/gfortran.dg/associate_70.f90
index ddb38b84c4b3..6f8f5d6a7cb8 100644
--- a/gcc/testsuite/gfortran.dg/associate_70.f90
+++ b/gcc/testsuite/gfortran.dg/associate_70.f90
@@ -1,5 +1,5 @@
 ! { dg-do run }
-! ( dg-options "-Wuninitialized" )
+! { dg-options "-Wuninitialized" }
 !
 ! Test fix for PR115700 comment 5, in which ‘.tmp1’ is used uninitialized and
 ! both normal and scalarized array references did not work correctly.
diff --git a/gcc/testsuite/gfortran.dg/bessel_3.f90 
b/gcc/testsuite/gfortran.dg/bessel_3.f90
index 51e11e9160a9..4191d2478cd6 100644
--- a/gcc/testsuite/gfortran.dg/bessel_3.f90
+++ b/gcc/testsuite/gfortran.dg/bessel_3.f90
@@ -6,7 +6,7 @@
 !
 IMPLICIT NONE
 print *, SIN (1.0)
-print *, BESSEL_J0(1.0) ! { dg-error "has no IMPLICIT type" })
+print *, BESSEL_J0(1.0) ! { dg-error "has no IMPLICIT type" }
 print *, BESSEL_J1(1.0) ! { dg-error "has no IMPLICIT type" }
 print *, BESSEL_JN(1,1.0) ! { dg-error "has no IMPLICIT type|Type mismatch" }
 print *, BESSEL_JN(1,2,1.0) ! { dg-error "has no IMPLICIT type|Type 
mismatch|More actual than formal" }
diff --git a/gcc/testsuite/gfortran.dg/c_funloc_tests_6.f90 
b/gcc/testsuite/gfortran.dg/c_funloc_tests_6.f90
index 45d095566d13..d8c8039e2586 100644
--- a/gcc/testsuite/gfortran.dg/c_funloc_tests_6.f90
+++ b/gcc/testsuite/gfortran.dg/c_funloc_tests_6.f90
@@ -20,7 +20,7 @@ procedure(sub), pointer :: fsub
 integer, external :: noCsub
 procedure(integer), pointer :: fint
 
-cp = c_funloc (sub) ! { dg-error "Cannot convert TYPE.c_funptr. to 
TYPE.c_ptr." })
+cp = c_funloc (sub) ! { dg-error "Cannot convert TYPE.c_funptr. to 
TYPE.c_ptr." }
 cfp = c_loc (int)   ! { dg-error "Cannot convert TYPE.c_ptr. to 
TYPE.c_funptr." }
 
 call c_f_pointer (cfp, int)     ! { dg-error "Argument CPTR at .1. to 
C_F_POINTER shall have the type TYPE.C_PTR." }
diff --git a/gcc/testsuite/gfortran.dg/parity_2.f90 
b/gcc/testsuite/gfortran.dg/parity_2.f90
index 5ff11dab9d91..9a8e0357d67b 100644
--- a/gcc/testsuite/gfortran.dg/parity_2.f90
+++ b/gcc/testsuite/gfortran.dg/parity_2.f90
@@ -6,7 +6,7 @@
 ! Check implementation of PARITY
 !
 implicit none
-print *, parity([real ::]) ! { dg-error "must be LOGICAL" })
+print *, parity([real ::]) ! { dg-error "must be LOGICAL" }
 print *, parity([integer ::]) ! { dg-error "must be LOGICAL" }
 print *, parity([logical ::])
 print *, parity(.true.) ! { dg-error "must be an array" }