Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/deferred_character_12.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 84e7813d76e9
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do run }
2 !
3 ! Tests the fix for PR63232
4 !
5 ! Contributed by Balint Aradi <baradi09@gmail.com>
6 !
7 module mymod
8 implicit none
9
10 type :: wrapper
11 character(:), allocatable :: string
12 end type wrapper
13
14 contains
15
16
17 subroutine sub2(mystring)
18 character(:), allocatable, intent(out) :: mystring
19
20 mystring = "test"
21
22 end subroutine sub2
23
24 end module mymod
25
26
27 program test
28 use mymod
29 implicit none
30
31 type(wrapper) :: mywrapper
32
33 call sub2(mywrapper%string)
34 if (.not. allocated(mywrapper%string)) call abort
35 if (trim(mywrapper%string) .ne. "test") call abort
36
37 end program test