Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/proc_ptr_12.f90 @ 132:d34655255c78
update gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 10:21:07 +0900 |
parents | 84e7813d76e9 |
children |
comparison
equal
deleted
inserted
replaced
130:e108057fa461 | 132:d34655255c78 |
---|---|
4 ! | 4 ! |
5 ! Contributed by Janus Weil <janus@gcc.gnu.org> | 5 ! Contributed by Janus Weil <janus@gcc.gnu.org> |
6 | 6 |
7 procedure(integer),pointer :: p | 7 procedure(integer),pointer :: p |
8 p => foo() | 8 p => foo() |
9 if (p(-1)/=1) call abort | 9 if (p(-1)/=1) STOP 1 |
10 contains | 10 contains |
11 function foo() result(bar) | 11 function foo() result(bar) |
12 procedure(integer),pointer :: bar | 12 procedure(integer),pointer :: bar |
13 bar => iabs | 13 bar => iabs |
14 end function | 14 end function |