URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [implicit_11.f90] - Rev 329
Go to most recent revision | Compare with Previous | Blame | View Log
! { 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" } }
Go to most recent revision | Compare with Previous | Blame | View Log