2 ! { dg-options "-std=f2003" }
4 ! Check for new F2008 integer constants, needed for
5 ! coarray support (cf. PR fortran/18918)
10 integer(kind
=ATOMIC_INT_KIND
) :: atomic_int
! { dg-error "has no IMPLICIT type" }
11 logical(kind
=ATOMIC_LOGICAL_KIND
) :: atomic_bool
! { dg-error "has no IMPLICIT type" }
15 if (IOSTAT_INQUIRE_INTERNAL_UNIT
<= 0) STOP 1 ! { dg-error "has no IMPLICIT type" }
16 print *,STAT_STOPPED_IMAGE
! { dg-error "has no IMPLICIT type" }
17 print *, STAT_LOCKED_OTHER_IMAGE
! { dg-error "has no IMPLICIT type" }
18 print *, STAT_LOCKED
! { dg-error "has no IMPLICIT type" }
19 print *, STAT_UNLOCKED
! { dg-error "has no IMPLICIT type" }
23 USE iso_fortran_env
, only
: INPUT_UNIT
24 USE iso_fortran_env
, only
: ATOMIC_INT_KIND
! { dg-error "is not in the selected standard" }
29 USE iso_fortran_env
, only
: foo
=> STAT_UNLOCKED
! { dg-error "is not in the selected standard" }
34 USE iso_fortran_env
, foo
=> IOSTAT_INQUIRE_INTERNAL_UNIT
! { dg-error "not in the selected standard" }