Simplest Fortran Code Still Has an Error -


i'm learning fortran new job , started writing very, basic programs. compile, i'm using gcc version 4.6.2, , i'm working on linux suse os (if matters @ all). believe version of fortran i'm using f90 or f95. code written using vim text editor.

here program i've written

integer, parameter :: x = 2, y = 3 integer            :: z = x+y  print *, z

that's it! oh, , lines indented, start on column 8, indentation isn't issue.

update 1 have tried doing so:

program print_stuff         print *, z end program print_stuff

i tried adding implicit none statement of , didn't change in error. end update 1

i save, quit, , compile. compiler returns error:

error: unexpected end of file in 'practice1.f'

anyone know problem is? i've tried removing print statement , having variable declarations same error occurs. it's keeping me practicing fortran @ all!

your first version

integer, parameter :: x = 2, y = 3 integer            :: z = x+y  print *, z

is not valid fortran program. every valid program ends end statement. 'program' without end statement not syntactically correct. keep reading introductory tutorial.

i suggest habit of starting programs program statement, name, such as

program myprog

and ending them with

end program myprog

strictly, neither program statement nor program name necessary make things bit more comprehensible.

oh, , while i'm writing ... don't habit of starting lines @ column 8, smacks of out-dated fixed-form source. if using reasonable compiler (such gcc) give filenames .f90 suffix , let source code run free. while observing habits of indentation of course.

edit in response op's edits

program print_stuff         print *, z end program print_stuff

and

integer, parameter :: x = 2, y = 3 integer            :: z = x+y  print *, z end

are both syntactically correct. both gfortran (v4.1.2) , intel fortran (v13.0.1) compile both correctly , produce executables execute.


Comments

Post a Comment

Popular posts from this blog

c++ - CryptStringToBinary API behavior -

i seeing strange behavior cryptstringtobinary cryptography api. please see below code (config: x64 debug): #include "stdafx.h" #include <windows.h> #include <strsafe.h> #include <iostream> #include <exception> void main() { dword dwskip; dword dwflags; dword dwdatalen; //lpcwstr pszinput = l"jaaaaaecaaadzgaaakqaagdnnl1l56bwgfjdgr3rpxtqqqn6daw3usv2emkjym4t"; //this works fine lpcwstr pszinput = l"mytest"; //doesnt work, api returns false,error code 0x0000000d // determine size of byte array , allocate memory. if(! cryptstringtobinary( pszinput, _tcslen( pszinput ) + 1, crypt_string_base64, null, &dwdatalen, &dwskip, &dwflags ) ) { dword dw = getlasterror(); //0x0000000d: data invalid throw std::exception( "error computing byte length." ); } byte *pbytebyte = null; try { ...
Read more

java.util.scanner - How to read and add only numbers to array from a text file -

i'm learning java , have question regarding reading file want read numbers file contains strings well. here example of file: 66.56 "3 java 3-43 5-42 2.1 1 and here coding: public class test { public static void main (string [] args){ if (0 < args.length) { file x = new file(args[0]); try{ scanner in = new scanner( new fileinputstream(x)); arraylist<double> test = new arraylist<>(); while(in.hasnext()){ if(in.hasnextdouble()){ double f=in.nextdouble(); test.add(f);} else {in.next();} } catch(ioexception e) { system.err.println("exception during reading: " + e); } } my problem add 66.56,2.1 , 1 doesn't add 3 after "3 or ignores 3-43 , 5-42 can tell me how skip strings , add doubles here? thanks all said 3 ie; "3, 3-43 , 4-42 strings either u read string , split , check number @ " , - or put in space between characters , integers. jvm after compilation tre...
Read more

iphone - Three second countdown in cocos2d -

i trying have 3 second countdown display when level beat in game. did: -(void) gamesegmentbeat { [self pauseschedulerandactions]; // overlay game opaque background ccsprite *opaquebg = [ccsprite spritewithfile:@"background1.png"]; opaquebg.position = screencenter; [self addchild:opaquebg z:10000]; // these 3 labels 3 seconds cclabelttf *three = [cclabelttf labelwithstring:@"3" fontname:@"helvetica" fontsize:100]; three.position = ccp(screencenter.x, screencenter.y); cclabelttf *two = [cclabelttf labelwithstring:@"2" fontname:@"helvetica" fontsize:100]; two.position = ccp(screencenter.x, screencenter.y); cclabelttf *one = [cclabelttf labelwithstring:@"1" fontname:@"helvetica" fontsize:100]; one.position = ccp(screencenter.x, screencenter.y); // secondspast specified in update method secondspast = 0; if (secondspast == 1) { [self addchild:thr...
Read more