blob: d33acd10a41f66aad470c06843a3c66ed177a2a7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
! { dg-do compile }
!
! PR fortran/34760
! The problem with implict typing is that it is unclear
! whether an existing symbol is a variable or a function.
! Thus it remains long FL_UNKNOWN, which causes extra
! problems; it was failing here since ISTAT was not
! FL_VARIABLE but still FL_UNKNOWN.
!
! Test case contributed by Dick Hendrickson.
!
MODULE TESTS
PRIVATE :: ISTAT
PUBLIC :: ISTAT2
CONTAINS
SUBROUTINE AD0001
REAL RLA1(:)
ALLOCATABLE RLA1
ISTAT = -314
ALLOCATE (RLA1(NF10), STAT = ISTAT)
ALLOCATE (RLA1(NF10), STAT = ISTAT2)
END SUBROUTINE
END MODULE
MODULE TESTS2
PRIVATE :: ISTAT2
CONTAINS
function istat2()
istat2 = 0
end function istat2
SUBROUTINE AD0001
REAL RLA1(:)
ALLOCATABLE RLA1
ALLOCATE (RLA1(NF10), STAT = ISTAT2) ! { dg-error "is not a variable" }
END SUBROUTINE
END MODULE tests2
! { dg-final { cleanup-modules "TESTS" } }
|
