diff options
author | Dan Albert <danalbert@google.com> | 2015-10-13 16:28:19 -0700 |
---|---|---|
committer | Dan Albert <danalbert@google.com> | 2015-10-13 16:28:19 -0700 |
commit | a8c075f72b231c37823661ba0d7d082a21cd39d9 (patch) | |
tree | 395aa3b848d56037292e50466643453485073018 /gcc-4.8/gcc/testsuite/gfortran.dg/coarray_lock_4.f90 | |
parent | 5aff2e0142aca13849b4e51de503e71d5010efa6 (diff) | |
download | toolchain_gcc-a8c075f72b231c37823661ba0d7d082a21cd39d9.tar.gz toolchain_gcc-a8c075f72b231c37823661ba0d7d082a21cd39d9.tar.bz2 toolchain_gcc-a8c075f72b231c37823661ba0d7d082a21cd39d9.zip |
Remove gcc-4.8.
Change-Id: Iee9c6985c613f58c82e33a91722d371579eb290f
Diffstat (limited to 'gcc-4.8/gcc/testsuite/gfortran.dg/coarray_lock_4.f90')
-rw-r--r-- | gcc-4.8/gcc/testsuite/gfortran.dg/coarray_lock_4.f90 | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/gcc-4.8/gcc/testsuite/gfortran.dg/coarray_lock_4.f90 b/gcc-4.8/gcc/testsuite/gfortran.dg/coarray_lock_4.f90 deleted file mode 100644 index 787dfe042..000000000 --- a/gcc-4.8/gcc/testsuite/gfortran.dg/coarray_lock_4.f90 +++ /dev/null @@ -1,64 +0,0 @@ -! { dg-do compile } -! { dg-options "-fcoarray=single" } -! -! -! LOCK/LOCK_TYPE checks -! - -subroutine valid() - use iso_fortran_env - implicit none - type t - type(lock_type) :: lock - end type t - - type t2 - type(lock_type), allocatable :: lock(:)[:] - end type t2 - - type(t), save :: a[*] - type(t2), save :: b ! OK - - allocate(b%lock(1)[*]) - LOCK(a%lock) ! OK - LOCK(a[1]%lock) ! OK - - LOCK(b%lock(1)) ! OK - LOCK(b%lock(1)[1]) ! OK -end subroutine valid - -subroutine invalid() - use iso_fortran_env - implicit none - type t - type(lock_type) :: lock - end type t - type(t), save :: a ! { dg-error "type LOCK_TYPE or with subcomponent of type LOCK_TYPE must be a coarray" } -end subroutine invalid - -subroutine more_tests - use iso_fortran_env - implicit none - type t - type(lock_type) :: a ! OK - end type t - - type t1 - type(lock_type), allocatable :: c2(:)[:] ! OK - end type t1 - type(t1) :: x1 ! OK - - type t2 - type(lock_type), allocatable :: c1(:) ! { dg-error "Allocatable component c1 at .1. of type LOCK_TYPE must have a codimension" } - end type t2 - - type t3 - type(t) :: b - end type t3 - type(t3) :: x3 ! { dg-error "of type LOCK_TYPE or with subcomponent of type LOCK_TYPE must be a coarray" } - - type t4 - type(lock_type) :: c0(2) - end type t4 - type(t4) :: x4 ! { dg-error "of type LOCK_TYPE or with subcomponent of type LOCK_TYPE must be a coarray" } -end subroutine more_tests |