Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/pr46985.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 ! PR tree-optimization/46985 | |
| 2 ! { dg-do compile } | |
| 3 ! { dg-options "-O -ftree-pre -ftree-vrp -fno-tree-ccp -fno-tree-dominator-opts -fno-tree-fre" } | |
| 4 | |
| 5 type :: t | |
| 6 integer :: i | |
| 7 end type t | |
| 8 type(t), target :: tar(2) = (/t(2), t(4)/) | |
| 9 integer, pointer :: ptr(:) | |
| 10 ptr => tar%i | |
| 11 call foo (ptr) | |
| 12 contains | |
| 13 subroutine foo (arg) | |
| 14 integer :: arg(:) | |
| 15 arg = arg - 1 | |
| 16 end subroutine | |
| 17 end |