📄 scale_1.f90
字号:
! { dg-do run }! inspired by PR17175REAL XDOUBLE PRECISION YINTEGER, PARAMETER :: DP = KIND(Y)INTEGER(kind=1) I1INTEGER(kind=2) I2INTEGER(kind=4) I4INTEGER(kind=8) I8X = 1.Y = 1._DPI1 = 10I2 = -10I4 = 20I8 = -20X = SCALE (X, I1)X = SCALE (X, I2)IF (X.NE.1.) CALL ABORT()X = SCALE (X, I4)X = SCALE (X, I8)IF (X.NE.1.) CALL ABORT()Y = SCALE (Y, I1)Y = SCALE (Y, I2)IF (Y.NE.1._DP) CALL ABORT()Y = SCALE (Y, I4)Y = SCALE (Y, I8)IF (Y.NE.1._DP) CALL ABORT()END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -