Replace absolute linenrs in gfortran.dg

2017-04-28  Tom de Vries  <tom@codesourcery.com>

	PR testsuite/80557
	* gfortran.dg/gomp/appendix-a/a.24.1.f90: Replace absolute linenrs.
	* gfortran.dg/gomp/appendix-a/a.31.3.f90: Same.

From-SVN: r247400

gcc/testsuite/ChangeLog

 2017-04-28  Tom de Vries  <tom@codesourcery.com>
 
 	PR testsuite/80557
+	* gfortran.dg/gomp/appendix-a/a.24.1.f90: Replace absolute linenrs.
+	* gfortran.dg/gomp/appendix-a/a.31.3.f90: Same.
+
+2017-04-28  Tom de Vries  <tom@codesourcery.com>
+
+	PR testsuite/80557
 	* obj-c++.dg/bitfield-1.mm: Replace absolute linenrs.
 	* obj-c++.dg/bitfield-4.mm: Same.
 	* obj-c++.dg/bitfield-5.mm: Same.

gcc/testsuite/gfortran.dg/gomp/appendix-a/a.24.1.f90

@@ -11,7 +11,7 @@
 !$OMP THREADPRIVATE(/BLOCKX/)
       INTEGER I, J
       i=1
-!$OMP PARALLEL DEFAULT(NONE) PRIVATE(A) SHARED(Z) PRIVATE(J)
+!$OMP PARALLEL DEFAULT(NONE) PRIVATE(A) SHARED(Z) PRIVATE(J) ! { dg-line omp_parallel }
       J = OMP_GET_NUM_THREADS();
                ! O.K. - J is listed in PRIVATE clause
       A = Z(J) ! O.K. - A is listed in PRIVATE clause
@@ -19,8 +19,8 @@
       X=1      ! O.K. - X is THREADPRIVATE
       Z(I) = Y ! Error - cannot reference I or Y here
 ! { dg-error "'i' not specified" "" { target *-*-* } .-1 } */
-! { dg-error "enclosing 'parallel'" "" { target *-*-* } 14 } */
-! { dg-error "'y' not specified" "" { target *-*-* } 20 }  */
+! { dg-error "enclosing 'parallel'" "" { target *-*-* } omp_parallel } */
+! { dg-error "'y' not specified" "" { target *-*-* } .-3 }  */
 !$OMP DO firstprivate(y)
       DO I = 1,10
         Z(I) = Y ! O.K. - I is the loop iteration variable

gcc/testsuite/gfortran.dg/gomp/appendix-a/a.31.3.f90

 ! { dg-do compile }
-        PROGRAM A31_3_WRONG
+PROGRAM A31_3_WRONG
   MAX = HUGE(0)
   M=0
-        !$OMP PARALLEL DO REDUCTION(MAX: M) ! MAX is no longer the
-                                            ! intrinsic so this
-                                            ! is non-conforming
-! { dg-error "OMP DECLARE REDUCTION max not found" "" { target *-*-* } 5 } */
+  !$OMP PARALLEL DO REDUCTION(MAX: M) ! MAX is no longer the intrinsic so this is non-conforming
+  ! { dg-error "OMP DECLARE REDUCTION max not found" "" { target *-*-* } .-1 } */
   DO I = 1, 100
      CALL SUB(M,I)
   END DO
-        END PROGRAM A31_3_WRONG
-        SUBROUTINE SUB(M,I)
+END PROGRAM A31_3_WRONG
+SUBROUTINE SUB(M,I)
   M = MAX(M,I)
-        END SUBROUTINE SUB
+END SUBROUTINE SUB