Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/coarray_failed_images_1.f08 @ 111:04ced10e8804
gcc 7
| author | kono |
|---|---|
| date | Fri, 27 Oct 2017 22:46:09 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 68:561a7518be6b | 111:04ced10e8804 |
|---|---|
| 1 ! { dg-do run } | |
| 2 ! { dg-options "-fdump-tree-original -fcoarray=lib -lcaf_single" } | |
| 3 ! { dg-additional-options "-latomic" { target libatomic_available } } | |
| 4 | |
| 5 program test_failed_images_1 | |
| 6 implicit none | |
| 7 | |
| 8 integer :: me,np,stat | |
| 9 character(len=1) :: c | |
| 10 integer, allocatable :: fi(:) | |
| 11 integer(kind=1), allocatable :: sfi(:) | |
| 12 | |
| 13 fi = failed_images() | |
| 14 if (size(fi) > 0) error stop "failed_images result shall be empty array" | |
| 15 if (allocated(fi)) error stop "failed_images result shall not be allocated" | |
| 16 | |
| 17 sfi = failed_images(KIND=1) | |
| 18 if (size(sfi) > 0) error stop "failed_images result shall be empty array" | |
| 19 if (allocated(sfi)) error stop "failed_images result shall not be allocated" | |
| 20 | |
| 21 sfi = failed_images(KIND=8) | |
| 22 if (size(sfi) > 0) error stop "failed_images result shall be empty array" | |
| 23 ! The implicit type conversion in the assignment above allocates an array. | |
| 24 ! if (allocated(sfi)) error stop "failed_images result shall not be allocated" | |
| 25 | |
| 26 end program test_failed_images_1 | |
| 27 | |
| 28 ! { dg-final { scan-tree-dump-times "_gfortran_caf_failed_images \\\(&D\\\.\[0-9\]+, 0B, 0B\\\);" 1 "original" } } | |
| 29 ! { dg-final { scan-tree-dump-times "_gfortran_caf_failed_images \\\(&D\\\.\[0-9\]+, 0B, D\\\.\[0-9\]+\\\);" 1 "original" } } | |
| 30 ! { dg-final { scan-tree-dump-times "_gfortran_caf_failed_images \\\(&D\\\.\[0-9\]+, 0B, D\\\.\[0-9\]+\\\);" 1 "original" } } |