Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/result_in_spec_2.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 (2017-10-27)
parents
children 84e7813d76e9
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do run }
2 ! Tests the fix for PR32047, in which the null agument
3 ! function for the character length would cause an ICE.
4 !
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org >
6 !
7 module test1
8 implicit none
9 contains
10 character(f()) function test2() result(r)
11 interface
12 pure function f()
13 integer f
14 end function f
15 end interface
16 r = '123'
17 end function test2
18 end module test1
19
20 pure function f()
21 integer :: f
22 f = 3
23 end function f
24
25 program test
26 use test1
27 implicit none
28 if(len (test2()) /= 3) call abort ()
29 if(test2() /= '123') call abort ()
30 end program test