OSDN Git Service

2010-04-08 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / iso_fortran_env_6.f90
1 ! { dg-do compile }
2 ! { dg-options "-std=f2003" }
3 !
4 ! Check for new F2008 integer constants, needed for
5 ! coarray support (cf. PR fortran/18918)
6 !
7
8 USE iso_fortran_env
9 implicit none
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" }
12
13 print *, OUTPUT_UNIT
14
15 if (IOSTAT_INQUIRE_INTERNAL_UNIT <= 0) call abort() ! { 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" }
20 end
21
22 module m
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" }
25 implicit none
26 end module m
27
28 module m2
29 USE iso_fortran_env, only: foo => STAT_UNLOCKED ! { dg-error "is not in the selected standard" }
30 implicit none
31 end module m2
32
33 module m3
34 USE iso_fortran_env, foo => IOSTAT_INQUIRE_INTERNAL_UNIT ! { dg-error "not in the selected standard" }
35 implicit none
36 end module m3