Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/pr65504.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 ! PR target/65504
2 ! { dg-do run }
3
4 program pr65504
5 implicit none
6 type :: T
7 character (len=256) :: a
8 character (len=256) :: b
9 end type T
10 type (T) :: c
11 type (T) :: d
12 c = foo ("test")
13 d = foo ("test")
14 if (trim(c%b) .ne. "foo") call abort
15 contains
16 type (T) function foo (x) result (v)
17 character(len=*), intent(in) :: x
18 select case (x)
19 case ("test")
20 v%b = 'foo'
21 case ("bazx")
22 v%b = 'barx'
23 case default
24 print *, "unknown"
25 stop
26 end select
27 end function foo
28 end program pr65504