4.赋值语句中的类型转换 例27,赋值语句中的类型转换 PROGRAM Main IMPLICIT NONE INTEGER a=3/2 INTEGER :b=3. 0/2 REAL∵c=3/2 REAL .d=3.0/2 PR|NT*,a=,a,‘,b=;b,’,C=’c,’,d=,d END 程序运算结果: a=1,b=1,c=1.0000000d=1500000 程序说明: ∷不能缺少; 变量与表达式的结果类型相同,直接进行赋值 变量与表达式的结果类型不同,先进行表达式的类型转换,再进行赋值。 进行变量赋值时最好使用相同类型。4. 赋值语句中的类型转换 例2-7，赋值语句中的类型转换 PROGRAM Main IMPLICIT NONE INTEGER ::a=3/2 INTEGER ::b=3.0/2 REAL ::c=3/2 REAL ::d=3.0/2 PRINT*, ‘a=‘, a, ‘,b=‘, b, ’,c=‘, c, ’,d=‘,d END 程序运算结果： a=1, b=1, c=1.0000000, d=1.500000 程序说明： • :: 不能缺少； • 变量与表达式的结果类型相同，直接进行赋值； 变量与表达式的结果类型不同，先进行表达式的类型转换，再进行赋值。 • 进行变量赋值时最好使用相同类型