mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
22 lines
704 B
Fortran
22 lines
704 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-fcoarray=single -std=f2008" }
|
|
!
|
|
! PR fortran/18918
|
|
!
|
|
! Diagnostic for atomic subroutines
|
|
!
|
|
use iso_fortran_env, only: atomic_int_kind, atomic_logical_kind
|
|
implicit none
|
|
integer(atomic_int_kind) :: a(1)[*]
|
|
logical(1) :: c[*]
|
|
integer(atomic_int_kind) :: b
|
|
logical(atomic_logical_kind) :: d, e[*]
|
|
|
|
call atomic_define(a, 7_2) ! { dg-error "must be a scalar" }
|
|
call atomic_ref(b, b) ! { dg-error "shall be a coarray" }
|
|
|
|
call atomic_define(c, 7) ! { dg-error "an integer of ATOMIC_INT_KIND or a logical of ATOMIC_LOGICAL_KIND" }
|
|
call atomic_ref(d, a(1)) ! { dg-error "shall have the same type as 'atom'" }
|
|
call atomic_ref(.true., e) ! { dg-error "shall be definable" }
|
|
end
|