1017を10I7に変えても同じエラー。 10I7をI7に変えても同じエラー。 K(20,20)でなくてR(20,20)だった。 直してコンパイルして実行。 ./a.out At line 26 of file p487.f (unit = 6, file = 'stdout') Fortran runtime error: Expected INTEGER for item 1 in formatted transfer, got RE...
内部ファイルの終端を超えて書き出ししようとしました (tried to write past end of internal file) 1061 結合していない ADVANCE 指定子 (unassociated ADVANCE specifier) 1062 ADVANCE 指定子が 'YES' または 'NO' ではありません (ADVANCE specifier is not 'YES' or 'NO') 1063 EOR...
5.1.3 -Xlist と大域的なプログラム検査の例 次の例で使用される Repeat.f ソースコードを示します。 demo% cat Repeat.f PROGRAM repeat pn1 = 27.005 CALL subr1 ( pn1 ) CALL newf ( pn1 ) PRINT *, pn1 END SUBROUTINE subr1 ( x ) IF ( x .GT. 1.0 ) THEN CALL subr2 ( x ...
intent(in)::valif(val>=0)thenis_positive_int8=.true.elseis_positive_int8=.false.endifendfunctionis_positive_int8logicalfunctionis_positive_int64(val)use,intrinsic::iso_fortran_envimplicitnoneinteger(int64),intent(in)::valif(val>=0)thenis_positive_int64=.true.elseis_positive_int64=.false...
module sample_mod implicit none integer, parameter :: isize=32 contains subroutine example1 call example2(isize) end subroutine example1 subroutine example2(jsize) integer, intent(in) :: jsize write(*,*) jsize end subroutine example2 end module...
通常の実行シーケンスは、分岐によって変更することもできます。 分岐は、同じ有効範囲単位内で、 あるステートメントからラベル付きの分岐ターゲット・ステートメントに制御を移します。 分岐ターゲット・ステートメントは、CASE、ELSE、ELSE IF、またはtype guardステートメントを除く、任...
call C routine to read the file end subroutine /* The following C routine reads data from the external file. */ void read_data(int *sz) { #include < stdio.h> #include < stdlib.h> int *data, i; FILE *fp; data = (int *) malloc((*sz)*sizeof(int)); fp = fopen("data_file...
(時間がかかる計算) x=sqrt(r) end do write(*,*) i end subroutine sbrtn common / alarmcom / i i=3 ! このルーチンでは I/O を行わない return end 参照: alarm(3C),sleep(3F),signal(3F).次の制限事項に注意してください. 28 Sun Studio 12: Fortran ライブラリ・リファレンス ...
ただし、-xipo または -xcrossfile が指定されている場合を除く。 コンパイラは、実際にインライン化した結果が安全で効果があるかどうかを判断する。-inline を-O4 とともに指定すると、コンパイラが通常実行する自動インライン化機能が使用できなくなります (%auto も指定した場合は除く)。