Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/assignment_4.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
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do compile }
2 ! { dg-options "-Wall" }
3 !
4 ! PR 55855: [OOP] incorrect warning with procedure pointer component on pointer-valued base object
5 !
6 ! Contributed by Andrew Benson <abensonca@gmail.com>
7
8 implicit none
9 type :: event
10 procedure(logical), pointer, nopass :: task
11 end type event
12 logical :: r
13 type(event), pointer :: myEvent
14 allocate(myEvent)
15 r=myEvent%task()
16 end