OSDN Git Service

565408cd26a69f8fad05e4b0114b92aa6b631575
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / min_max_conformance.f90
1 ! { dg-compile }
2 ! PR 31919:  Tests for different ranks in min/max were missing.
3 program pr31919
4   integer :: i4a(2, 2), i4b(2), i4c(4)
5   real(4) :: r4a(2, 2), r4b(2), r4c(4)
6   real(8) :: r8a(2, 2), r8b(2), r8c(4)
7
8   i4a = max(i4a, i4b)            ! { dg-error "Incompatible ranks" }
9   i4a = max0(i4a, i4b)           ! { dg-error "Incompatible ranks" }
10   r4a = amax0(i4a, i4b)          ! { dg-error "Incompatible ranks" }
11   i4a = max1(r4a, r4b)           ! { dg-error "Incompatible ranks" }
12   r4a = amax1(r4a, r4b)          ! { dg-error "Incompatible ranks" }
13   r8a = dmax1(r8a, r8b)          ! { dg-error "Incompatible ranks" }
14
15   i4a = min(i4a, i4b)            ! { dg-error "Incompatible ranks" }
16   i4a = min0(i4a, i4b)           ! { dg-error "Incompatible ranks" }
17   i4a = amin0(i4a, i4b)          ! { dg-error "Incompatible ranks" }
18   r4a = min1(r4a, r4b)           ! { dg-error "Incompatible ranks" }
19   r4a = amin1(r4a, r4b)          ! { dg-error "Incompatible ranks" }
20   r8a = dmin1(r8a, r8b)          ! { dg-error "Incompatible ranks" }
21
22   i4a = max(i4b, i4c)            ! { dg-error "different shape for arguments" }
23   i4a = max0(i4b, i4c)           ! { dg-error "different shape for arguments" }
24   r4a = amax0(i4b, i4c)          ! { dg-error "different shape for arguments" }
25   i4a = max1(r4b, r4c)           ! { dg-error "different shape for arguments" }
26   r4a = amax1(r4b, r4c)          ! { dg-error "different shape for arguments" }
27   r8a = dmax1(r8B, r8c)          ! { dg-error "different shape for arguments" }
28
29   i4a = min(i4b, i4c)            ! { dg-error "different shape for arguments" }
30   i4a = min0(i4b, i4c)           ! { dg-error "different shape for arguments" }
31   i4a = amin0(i4b, i4c)          ! { dg-error "different shape for arguments" }
32   r4a = min1(r4b, r4c)           ! { dg-error "different shape for arguments" }
33   r4a = amin1(r4b, r4c)          ! { dg-error "different shape for arguments" }
34   r8a = dmin1(r8b, r8c)          ! { dg-error "different shape for arguments" }
35 end program