📄 used_types_13.f90
字号:
! { dg-do compile }! Tests the fix for PR29820, which was another problem with derived type! association. Not all siblings were being searched for identical types.!! Contributed by Harald Anlauf <anlauf@gmx.de>!module geo type geodetic real :: h end type geodeticend module geomodule gfcbug44 implicit nonecontainssubroutine point ( gp) use geo type(geodetic), intent(out) :: gp type(geodetic) :: gpx(1) gp = gpx(1)end subroutine pointsubroutine plane () use geo type(geodetic) :: gp call point ( gp)end subroutine planeend module gfcbug44! { dg-final { cleanup-modules "geo gfcbug44" } }
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -