OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [omp_atomic1.f90] - Rev 316

Go to most recent revision | Compare with Previous | Blame | View Log

! { dg-do compile }
subroutine test_atomic
    integer (kind = 4) :: a
    integer :: b
    real :: c, f
    double precision :: d
    integer, dimension (10) :: e
    a = 1
    b = 2
    c = 3
    d = 4
    e = 5
    f = 6
!$omp atomic
    a = a + 4
!$omp atomic
    b = 4 - b
!$omp atomic
    c = c * 2
!$omp atomic
    d = 2 / d
!$omp atomic
    e = 1 ! { dg-error "must set a scalar variable" }
!$omp atomic
    a = a ** 8 ! { dg-error "assignment operator must be" }
!$omp atomic
    b = b + 3 + b ! { dg-error "cannot reference" }
!$omp atomic
    c = c - f + 1 ! { dg-error "not mathematically equivalent to" }
!$omp atomic
    a = ishft (a, 1) ! { dg-error "assignment intrinsic must be" }
!$omp atomic
    c = min (c, 2.1, c) ! { dg-error "intrinsic arguments except one" }
!$omp atomic
    a = max (b, e(1)) ! { dg-error "intrinsic argument must be 'a'" }
!$omp atomic
    d = 12 ! { dg-error "assignment must have an operator" }
end subroutine test_atomic

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.