summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/derived_sub.f90
blob: 9b6624579c2d606a737a6c582d588f11248a0e23 (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
! { dg-do compile }
! PR35475  gfortran fails to compile valid code with ICE error in fold-const.c
! Test case from PR report added to avoid future regression
module modone
  type mytype
    real :: myvar
  end type
end module

module modtwo
  interface
    subroutine subone(mytype_cur)
      use modone
      type (mytype) mytype_cur
    end subroutine
  end interface

contains

  subroutine subtwo(mytype_cur)
    use modone
    type (mytype) mytype_cur,mytype_fin
    mytype_fin=mytype_cur
    return
  end subroutine

  subroutine subthree(mytype_cur)
    use modone
    type (mytype) mytype_cur
    call subone(mytype_cur)
  end subroutine 

end module
! { dg-final { cleanup-modules "modone modtwo" } }