Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/deferred_type_param_3.f90 @ 144:8f4e72ab4e11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix segmentation fault caused by nothing next cur_op to end
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Sun, 23 Dec 2018 21:23:56 +0900
parents 04ced10e8804
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 !
kono
parents:
diff changeset
3 ! PR fortran/45170
kono
parents:
diff changeset
4 ! PR fortran/52158
kono
parents:
diff changeset
5 !
kono
parents:
diff changeset
6 ! Contributed by Damian Rouson
kono
parents:
diff changeset
7
kono
parents:
diff changeset
8 module speaker_class
kono
parents:
diff changeset
9 type speaker
kono
parents:
diff changeset
10 contains
kono
parents:
diff changeset
11 procedure :: speak
kono
parents:
diff changeset
12 end type
kono
parents:
diff changeset
13 contains
kono
parents:
diff changeset
14 function speak(this)
kono
parents:
diff changeset
15 class(speaker) ,intent(in) :: this
kono
parents:
diff changeset
16 character(:) ,allocatable :: speak
kono
parents:
diff changeset
17 end function
kono
parents:
diff changeset
18 subroutine say_something(somebody)
kono
parents:
diff changeset
19 class(speaker) :: somebody
kono
parents:
diff changeset
20 print *,somebody%speak()
kono
parents:
diff changeset
21 end subroutine
kono
parents:
diff changeset
22 end module
kono
parents:
diff changeset
23