Retro68/gcc/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-4.f90

! { dg-do run }

program example
   integer :: x
   x = 1
   !$omp parallel
   !$omp single
      !$omp task shared(x) depend(out: x)
         x = 2
      !$omp end task
      !$omp task shared(x) depend(in: x)
         if (x .ne. 2) STOP 1
      !$omp end task
      !$omp task shared(x) depend(in: x)
         if (x .ne. 2) STOP 2
      !$omp end task
   !$omp end single
   !$omp end parallel
end program
upgrade gcc to 6.3.0, binutils to 2.28 2017-04-10 11:32:00 +00:00			`! { dg-do run }`

			`program example`
			`integer :: x`
			`x = 1`
			`!$omp parallel`
			`!$omp single`
			`!$omp task shared(x) depend(out: x)`
			`x = 2`
			`!$omp end task`
			`!$omp task shared(x) depend(in: x)`
upgrade to gcc 8.2.0 and newlib 3.0.0 2018-12-28 15:30:48 +00:00			`if (x .ne. 2) STOP 1`
upgrade gcc to 6.3.0, binutils to 2.28 2017-04-10 11:32:00 +00:00			`!$omp end task`
			`!$omp task shared(x) depend(in: x)`
upgrade to gcc 8.2.0 and newlib 3.0.0 2018-12-28 15:30:48 +00:00			`if (x .ne. 2) STOP 2`
upgrade gcc to 6.3.0, binutils to 2.28 2017-04-10 11:32:00 +00:00			`!$omp end task`
			`!$omp end single`
			`!$omp end parallel`
			`end program`