Skip to content

Commit 8032fd1

Browse files
author
rasmussn
committed
Initial version.
1 parent 1f51c1d commit 8032fd1

2 files changed

Lines changed: 17 additions & 0 deletions

File tree

tests/rule-tests/R636.f90

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,9 @@
1+
!! R636 allocate-coarray-spec
2+
! is [ allocate-coshape-spec-list , ] [ lower-bound-expr : ] *
3+
!
4+
allocate(A1[*])
5+
allocate(A2[3:*])
6+
allocate(A3[1,*])
7+
allocate(A4[3,13,4:*])
8+
9+
end

tests/rule-tests/R637.f90

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,8 @@
1+
!! R637 allocate-coshape-spec
2+
! is [ lower-bound-expr : ] upper-bound-expr
3+
!
4+
allocate(A1[3,*])
5+
allocate(A2[2:3,*])
6+
allocate(A3[2,3:4,*])
7+
8+
end

0 commit comments

Comments
 (0)