blob: ca5fe4020d5e1febb76f7e7150bd30c297bb9c91 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { dg-do run }
program test_failed_images_2
implicit none
integer, allocatable :: fi(:)
integer(kind=1), allocatable :: sfi(:)
fi = failed_images()
if (size(fi) > 0) error stop "failed_images result shall be empty array"
sfi = failed_images(KIND=1)
if (size(sfi) > 0) error stop "failed_images result shall be empty array"
sfi = failed_images(KIND=8)
if (size(sfi) > 0) error stop "failed_images result shall be empty array"
end program test_failed_images_2
|
