Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/assumed_shape_ranks_1.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 ! Tests fix for PR25070; was no error for actual and assumed shape
kono
parents:
diff changeset
3 ! dummy ranks not matching.
kono
parents:
diff changeset
4 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
kono
parents:
diff changeset
5
kono
parents:
diff changeset
6 module addon
kono
parents:
diff changeset
7 interface extra
kono
parents:
diff changeset
8 function foo (y)
kono
parents:
diff changeset
9 integer :: foo (2), y (:)
kono
parents:
diff changeset
10 end function foo
kono
parents:
diff changeset
11 end interface extra
kono
parents:
diff changeset
12 end module addon
kono
parents:
diff changeset
13
kono
parents:
diff changeset
14 use addon
kono
parents:
diff changeset
15 INTEGER :: I(2,2)
kono
parents:
diff changeset
16 I=RESHAPE((/1,2,3,4/),(/2,2/))
kono
parents:
diff changeset
17 CALL TST(I) ! { dg-error "Rank mismatch in argument" }
kono
parents:
diff changeset
18 i = foo (i) ! { dg-error "Rank mismatch|Incompatible ranks" }
kono
parents:
diff changeset
19 CONTAINS
kono
parents:
diff changeset
20 SUBROUTINE TST(I)
kono
parents:
diff changeset
21 INTEGER :: I(:)
kono
parents:
diff changeset
22 write(6,*) I
kono
parents:
diff changeset
23 END SUBROUTINE TST
kono
parents:
diff changeset
24 END