Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/coarray_failed_images_1.f08 @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do run } ! { dg-options "-fdump-tree-original -fcoarray=lib -lcaf_single" } ! { dg-additional-options "-latomic" { target libatomic_available } } program test_failed_images_1 implicit none integer :: me,np,stat character(len=1) :: c integer, allocatable :: fi(:) integer(kind=1), allocatable :: sfi(:) fi = failed_images() if (size(fi) > 0) error stop "failed_images result shall be empty array" if (allocated(fi)) error stop "failed_images result shall not be allocated" sfi = failed_images(KIND=1) if (size(sfi) > 0) error stop "failed_images result shall be empty array" if (allocated(sfi)) error stop "failed_images result shall not be allocated" sfi = failed_images(KIND=8) if (size(sfi) > 0) error stop "failed_images result shall be empty array" ! The implicit type conversion in the assignment above allocates an array. ! if (allocated(sfi)) error stop "failed_images result shall not be allocated" end program test_failed_images_1 ! { dg-final { scan-tree-dump-times "_gfortran_caf_failed_images \\\(&D\\\.\[0-9\]+, 0B, 0B\\\);" 1 "original" } } ! { dg-final { scan-tree-dump-times "_gfortran_caf_failed_images \\\(&D\\\.\[0-9\]+, 0B, D\\\.\[0-9\]+\\\);" 1 "original" } } ! { dg-final { scan-tree-dump-times "_gfortran_caf_failed_images \\\(&D\\\.\[0-9\]+, 0B, D\\\.\[0-9\]+\\\);" 1 "original" } }