Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/coarray_failed_images_1.f08 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do run }
kono
parents:
diff changeset
2 ! { dg-options "-fdump-tree-original -fcoarray=lib -lcaf_single" }
kono
parents:
diff changeset
3 ! { dg-additional-options "-latomic" { target libatomic_available } }
kono
parents:
diff changeset
4
kono
parents:
diff changeset
5 program test_failed_images_1
kono
parents:
diff changeset
6 implicit none
kono
parents:
diff changeset
7
kono
parents:
diff changeset
8 integer :: me,np,stat
kono
parents:
diff changeset
9 character(len=1) :: c
kono
parents:
diff changeset
10 integer, allocatable :: fi(:)
kono
parents:
diff changeset
11 integer(kind=1), allocatable :: sfi(:)
kono
parents:
diff changeset
12
kono
parents:
diff changeset
13 fi = failed_images()
kono
parents:
diff changeset
14 if (size(fi) > 0) error stop "failed_images result shall be empty array"
kono
parents:
diff changeset
15 if (allocated(fi)) error stop "failed_images result shall not be allocated"
kono
parents:
diff changeset
16
kono
parents:
diff changeset
17 sfi = failed_images(KIND=1)
kono
parents:
diff changeset
18 if (size(sfi) > 0) error stop "failed_images result shall be empty array"
kono
parents:
diff changeset
19 if (allocated(sfi)) error stop "failed_images result shall not be allocated"
kono
parents:
diff changeset
20
kono
parents:
diff changeset
21 sfi = failed_images(KIND=8)
kono
parents:
diff changeset
22 if (size(sfi) > 0) error stop "failed_images result shall be empty array"
kono
parents:
diff changeset
23 ! The implicit type conversion in the assignment above allocates an array.
kono
parents:
diff changeset
24 ! if (allocated(sfi)) error stop "failed_images result shall not be allocated"
kono
parents:
diff changeset
25
kono
parents:
diff changeset
26 end program test_failed_images_1
kono
parents:
diff changeset
27
kono
parents:
diff changeset
28 ! { dg-final { scan-tree-dump-times "_gfortran_caf_failed_images \\\(&D\\\.\[0-9\]+, 0B, 0B\\\);" 1 "original" } }
kono
parents:
diff changeset
29 ! { dg-final { scan-tree-dump-times "_gfortran_caf_failed_images \\\(&D\\\.\[0-9\]+, 0B, D\\\.\[0-9\]+\\\);" 1 "original" } }
kono
parents:
diff changeset
30 ! { dg-final { scan-tree-dump-times "_gfortran_caf_failed_images \\\(&D\\\.\[0-9\]+, 0B, D\\\.\[0-9\]+\\\);" 1 "original" } }