Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/assumed_rank_6.f90 @ 111:04ced10e8804
gcc 7
| author | kono |
|---|---|
| date | Fri, 27 Oct 2017 22:46:09 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 68:561a7518be6b | 111:04ced10e8804 |
|---|---|
| 1 ! { dg-do compile } | |
| 2 ! { dg-options "-fcoarray=single" } | |
| 3 ! | |
| 4 ! PR fortran/48820 | |
| 5 ! | |
| 6 ! Assumed-rank constraint checks and other diagnostics | |
| 7 ! | |
| 8 | |
| 9 subroutine foo(x) ! { dg-error "Assumed-type variable x at .1. may not have the INTENT.OUT. attribute" } | |
| 10 type(*), intent(out) :: x | |
| 11 end subroutine | |
| 12 | |
| 13 subroutine bar(x) | |
| 14 integer, intent(out) :: x(..) | |
| 15 end subroutine bar | |
| 16 | |
| 17 subroutine foo3(y) | |
| 18 integer :: y(..) | |
| 19 y = 7 ! { dg-error "Assumed-rank variable y at .1. may only be used as actual argument" } | |
| 20 print *, y + 10 ! { dg-error "Assumed-rank variable y at .1. may only be used as actual argument" } | |
| 21 print *, y ! { dg-error "Assumed-rank variable y at .1. may only be used as actual argument" } | |
| 22 end subroutine | |
| 23 | |
| 24 subroutine foo2(x, y) | |
| 25 integer :: x(..), y(..) | |
| 26 call valid3(x(:)) ! { dg-error "Assumed-rank variable x at .1. shall not have a subobject reference" } | |
| 27 contains | |
| 28 subroutine valid3(y) | |
| 29 integer :: y(..) | |
| 30 end subroutine | |
| 31 end subroutine | |
| 32 | |
| 33 subroutine foo4(x) | |
| 34 integer, codimension[*] :: x(..) ! { dg-error "The assumed-rank array at .1. shall not have a codimension" } | |
| 35 end subroutine | |
| 36 | |
| 37 subroutine foo5(y) ! { dg-error "may not have the VALUE or CODIMENSION attribute" } | |
| 38 integer :: y(..)[*] | |
| 39 end subroutine |