re PR fortran/88898 ([Regression 9] gomp is broken by r268045)
2018-01-17 Steve Ellcey <sellcey@cavium.com> PR fortran/88898 * gfortran.dg/gomp/declare-simd-2.f90: Add aarch64 target specifier to warning checks. * gfortran.dg/gomp/pr79154-1.f90: Ditto. * gfortran.dg/gomp/pr83977.f90: Ditto. From-SVN: r268054
This commit is contained in:
parent
7025cc1492
commit
fa95915e47
|
@ -1,3 +1,11 @@
|
|||
2018-01-17 Steve Ellcey <sellcey@cavium.com>
|
||||
|
||||
PR fortran/88898
|
||||
* gfortran.dg/gomp/declare-simd-2.f90: Add aarch64 target specifier to
|
||||
warning checks.
|
||||
* gfortran.dg/gomp/pr79154-1.f90: Ditto.
|
||||
* gfortran.dg/gomp/pr83977.f90: Ditto.
|
||||
|
||||
2019-01-17 Martin Sebor <msebor@redhat.com>
|
||||
|
||||
PR middle-end/88273
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
! { dg-do compile }
|
||||
|
||||
function f1 (a, b, c, d, e, f) ! { dg-warning "GCC does not currently support mixed size types for 'simd' functions" }
|
||||
function f1 (a, b, c, d, e, f) ! { dg-warning "GCC does not currently support mixed size types for 'simd' functions" "" { target aarch64-*-* } }
|
||||
integer, value :: a, b, c
|
||||
integer :: d, e, f, f1
|
||||
!$omp declare simd (f1) uniform(b) linear(c, d) linear(uval(e)) linear(ref(f))
|
||||
|
@ -12,7 +12,7 @@ function f1 (a, b, c, d, e, f) ! { dg-warning "GCC does not currently support mi
|
|||
f = f + 1
|
||||
f1 = a + b + c + d + e + f
|
||||
end function f1
|
||||
integer function f2 (a, b) ! { dg-warning "GCC does not currently support mixed size types for 'simd' functions" }
|
||||
integer function f2 (a, b) ! { dg-warning "GCC does not currently support mixed size types for 'simd' functions" "" { target aarch64-*-* } }
|
||||
integer :: a, b
|
||||
!$omp declare simd uniform(b) linear(ref(a):b)
|
||||
a = a + 1
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! PR fortran/79154
|
||||
! { dg-do compile }
|
||||
|
||||
pure real function foo (a, b) ! { dg-warning "GCC does not currently support mixed size types for 'simd' functions" }
|
||||
pure real function foo (a, b) ! { dg-warning "GCC does not currently support mixed size types for 'simd' functions" "" { target aarch64-*-* } }
|
||||
!$omp declare simd(foo) ! { dg-bogus "may not appear in PURE or ELEMENTAL" }
|
||||
real, intent(in) :: a, b
|
||||
foo = a + b
|
||||
|
@ -20,7 +20,7 @@ pure real function baz (a, b)
|
|||
real, intent(in) :: a, b
|
||||
baz = a + b
|
||||
end function baz
|
||||
elemental real function fooe (a, b) ! { dg-warning "GCC does not currently support mixed size types for 'simd' functions" }
|
||||
elemental real function fooe (a, b) ! { dg-warning "GCC does not currently support mixed size types for 'simd' functions" "" { target aarch64-*-* } }
|
||||
!$omp declare simd(fooe) ! { dg-bogus "may not appear in PURE or ELEMENTAL" }
|
||||
real, intent(in) :: a, b
|
||||
fooe = a + b
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! PR middle-end/83977
|
||||
! { dg-do compile }
|
||||
|
||||
integer function foo (a, b) ! { dg-warning "GCC does not currently support mixed size types for 'simd' functions" }
|
||||
integer function foo (a, b) ! { dg-warning "GCC does not currently support mixed size types for 'simd' functions" "" { target aarch64-*-* } }
|
||||
integer :: a, b
|
||||
!$omp declare simd uniform(b) linear(ref(a):b)
|
||||
a = a + 1
|
||||
|
|
Loading…
Reference in New Issue