Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/pr92208.f90 @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
145
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
1 ! { dg-do run }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
2 !
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
3 ! PR fortran/92208
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
4 !
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
5 ! Contributed by Nils Reiche
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
6 !
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
7 program stringtest
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
8 implicit none
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
9 integer, parameter :: noVars = 2
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
10
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
11 ! print*, "varNames: ", createVarnames("var",noVars)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
12 call function1(noVars,createVarnames("var",noVars),"path")
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
13
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
14 contains
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
15
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
16 function createVarnames(string,noVars) result(stringArray)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
17 implicit none
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
18 character(len=*), intent(in) :: string
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
19 integer, intent(in) :: noVars
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
20 character(len=len_trim(string)+6), dimension(noVars) :: stringArray
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
21 integer :: i
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
22 do i=1,noVars
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
23 write(stringArray(i),'(a,i0)') string, i
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
24 enddo
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
25 end function createVarnames
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
26
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
27 subroutine function1(noVars,varNames,path)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
28 implicit none
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
29 integer, intent(in) :: noVars
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
30 character(len=*), intent(in) :: path
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
31 character(len=*), dimension(noVars) :: varNames
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
32
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
33 if (path /= 'path') stop 1
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
34 if (any(varNames /= ['var1', 'var2'])) stop 2
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
35 !print*, "function1-path : ", trim(path)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
36 !print*, "function1-varNames: ", varNames
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
37 end subroutine function1
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
38
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
39 end program stringtest