Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/intent_out_3.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR fortran/34662 ! The INTENT error was not detected. ! Test case contributed by Joost VandeVondele. ! MODULE M1 TYPE T1 INTEGER :: I(3) END TYPE T1 TYPE(T1), PARAMETER :: D1=T1((/1,2,3/)) CONTAINS SUBROUTINE S1(J) INTEGER, INTENT(INOUT) :: J END SUBROUTINE S1 END MODULE M1 USE M1 CALL S1(D1%I(3)) ! { dg-error "variable definition context" } END