1! RUN: %S/test_modfile.sh %s %t %f18 2! Test compile-time analysis of shapes. 3 4module m1 5 integer(8), parameter :: a0s(*) = shape(3.14159) 6 real :: a1(5,5,5) 7 integer(8), parameter :: a1s(*) = shape(a1) 8 integer(8), parameter :: a1ss(*) = shape(a1s) 9 integer(8), parameter :: a1sss(*) = shape(a1ss) 10 integer(8), parameter :: a1rs(*) = [rank(a1),rank(a1s),rank(a1ss),rank(a1sss)] 11 integer(8), parameter :: a1n(*) = [size(a1),size(a1,1),size(a1,2)] 12 integer(8), parameter :: a1sn(*) = [size(a1s),size(a1ss),size(a1sss)] 13 integer(8), parameter :: ac1s(*) = shape([1]) 14 integer(8), parameter :: ac2s(*) = shape([1,2,3]) 15 integer(8), parameter :: ac3s(*) = shape([(1,j=1,4)]) 16 integer(8), parameter :: ac3bs(*) = shape([(1,j=4,1,-1)]) 17 integer(8), parameter :: ac4s(*) = shape([((j,k,j*k,k=1,3),j=1,4)]) 18 integer(8), parameter :: ac5s(*) = shape([((0,k=5,1,-2),j=9,2,-3)]) 19 integer(8), parameter :: rss(*) = shape(reshape([(0,j=1,90)], -[2,3]*(-[5_8,3_8]))) 20 contains 21 subroutine subr(x,n1,n2) 22 real, intent(in) :: x(:,:) 23 integer, intent(in) :: n1(3), n2(:) 24 real, allocatable :: a(:,:,:) 25 ! the following fail if we don't handle empty strings 26 Character(0) :: ch1(1,2,3) = Reshape([('',n=1,1*2*3)],[1,2,3]) 27 Character(0) :: ch2(3) = reshape(['','',''], [3]) 28 a = reshape(x,n1) 29 a = reshape(x,n2(10:30:9)) ! fails if we can't figure out triplet shape 30 end subroutine 31end module m1 32!Expect: m1.mod 33! module m1 34! integer(8),parameter::a0s(1_8:*)=[INTEGER(8)::] 35! intrinsic::shape 36! real(4)::a1(1_8:5_8,1_8:5_8,1_8:5_8) 37! integer(8),parameter::a1s(1_8:*)=[INTEGER(8)::5_8,5_8,5_8] 38! integer(8),parameter::a1ss(1_8:*)=[INTEGER(8)::3_8] 39! integer(8),parameter::a1sss(1_8:*)=[INTEGER(8)::1_8] 40! integer(8),parameter::a1rs(1_8:*)=[INTEGER(8)::3_8,1_8,1_8,1_8] 41! integer(8),parameter::a1n(1_8:*)=[INTEGER(8)::125_8,5_8,5_8] 42! integer(8),parameter::a1sn(1_8:*)=[INTEGER(8)::3_8,1_8,1_8] 43! integer(8),parameter::ac1s(1_8:*)=[INTEGER(8)::1_8] 44! integer(8),parameter::ac2s(1_8:*)=[INTEGER(8)::3_8] 45! integer(8),parameter::ac3s(1_8:*)=[INTEGER(8)::4_8] 46! integer(8),parameter::ac3bs(1_8:*)=[INTEGER(8)::4_8] 47! integer(8),parameter::ac4s(1_8:*)=[INTEGER(8)::36_8] 48! integer(8),parameter::ac5s(1_8:*)=[INTEGER(8)::9_8] 49! integer(8),parameter::rss(1_8:*)=[INTEGER(8)::10_8,9_8] 50! intrinsic::reshape 51! contains 52! subroutine subr(x,n1,n2) 53! real(4),intent(in)::x(:,:) 54! integer(4),intent(in)::n1(1_8:3_8) 55! integer(4),intent(in)::n2(:) 56! end 57! end 58