Not declaring it external at all >> results in >> the following compilation error: >> >> /net/users/csg/csg4035/master/workdir/src/main.F:97: undefined >> reference >> to `__grid_MOD_readgrid' >> >> (the module is here is named You did not say what versions of gfortran, ifort, and g95 you use,and the code fragment is incomplete as the types v3d IntexInCGNS are not defined. C USES UNROLLED LOOPS FOR INCREMENTS EQUAL TO ONE. C JACK DONGARRA, LINPACK, 3/11/78. this contact form
Now that I think I can help with. foo.f90 > module foo > real sin > end module foo > > ! Comment 2 Tobias Burnus 2013-05-03 08:59:48 UTC decl.c's gfc_match_null has: gfc_intrinsic_symbol (sym); if (sym->attr.proc != PROC_INTRINSIC && (!gfc_add_procedure(&sym->attr, PROC_INTRINSIC, sym->name, NULL) || !gfc_add_function (&sym->attr, sym->name, NULL))) return MATCH_ERROR; Failing is the Not to mention a module, once compiled, should contain all the information necessary for the USE statement. !
For a code containing three files: test1.f90 PROGRAM Main USE TEST TYPE (DN)::DX DX=DN(1.0D0,1.0D0) write(*,*) SIN(DX) END PROGRAM Main DNAD.f90 MODULE TEST TYPE,PUBLIC:: DN REAL(8)::x REAL(8)::xp END TYPE DN PUBLIC SIN REAL, POINTER :: R(:) => NULL() END MODULE M MODULE M_INTERN USE M IMPLICIT NONE REAL, POINTER :: ARR(:) => NULL() END MODULE M_INTERN ! -- end of test.f90 $ gfortran when I use gfortran to compile, I got the error: type(ClusterNode),pointer :: son1=>null() ! obtain sine of a dual number, ELEMENTAL > END INTERFACE > > CONTAINS > > ELEMENTAL FUNCTION SIN_D(u) RESULT(res) > TYPE (DN), INTENT(IN)::u > TYPE (DN)::res > > res%x = SIN(u%x)
I have a link below that explains how to upload a file. Put the interface body for foo1 in the generic interface block in module b (and then don't USE foo1 from module a). 2. Happy new year to all. > > > > > > > > > > > ICON plc made the following annotations. -------------------------------------------------------------------------= ----- This e-mail transmission may contain confidential or if HaveSons, allocate 1 Error: Cannot change attributes of USE-associated symbol null at (1) 2.
In f2003, you just omit the keyword "module" and it no longer has the silly restriction. If you have received this e-mail transmission in error, please reply to the = sender, so that ICON plc can arrange for proper delivery, and then please delete the mess= age. C TYPE (DN) DX(*),DY(*),DTEMP INTEGER I,INCX,INCY,IX,IY,M,MP1,N 60 DDOT = DTEMP RETURN END CVF can successfully compile it. In fact, ibm xlf rejects it, too. > Or maybe I don't understand its meaning?
Open Source libraries From: Hifi-Comp on 15 Sep 2009 23:15 I am wondering what INTRINSIC statement does for us. Yet gfortran complains the following: > > > > > > In file blas.for:5 > > > > > > INTRINSIC SIN > > > > > indexes corresponding to cgns file (nes) type(ClusterNode),pointer :: son1=>null() ! Fix typo in intialization of derived types. (finish_equivalences): Add second argument in call to create_common. (named_common): take 'gfc_symtree' instead of 'gfc_symbol'. (gfc_trans_common): Adapt to new data structures. * trans-decl.c (gfc_create_module_variables): Also
Patches: http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/decl.c.diff?cvsroot=gcc&r1=1.11&r2=1.12 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/dump-parse-tree.c.diff?cvsroot=gcc&r1=1.5&r2=1.6 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/gfortran.h.diff?cvsroot=gcc&r1=1.14&r2=1.15 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/match.c.diff?cvsroot=gcc&r1=1.10&r2=1.11 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/match.h.diff?cvsroot=gcc&r1=1.4&r2=1.5 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/module.c.diff?cvsroot=gcc&r1=1.7&r2=1.8 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/parse.c.diff?cvsroot=gcc&r1=1.9&r2=1.10 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/symbol.c.diff?cvsroot=gcc&r1=1.6&r2=1.7 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/trans-common.c.diff?cvsroot=gcc&r1=1.7&r2=1.8 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/trans-decl.c.diff?cvsroot=gcc&r1=1.14&r2=1.15 Comment 15 CVS Commits 2004-06-29 18:57:28 UTC Subject: Bug 13249 CVSROOT: /cvs/gcc Module name: gcc Changes by: email@example.com 2004-06-29 18:57:25 weblink Thank You, ICON plc South County Business Park Leopardstown Dublin 18 Ireland Registered number: 145835 Received on Wed Jan 06 2010 - 12:56:32 EST This message: [ Message body ] Next causes the error go away ! For comparison, the following (also valid) code is accepted: PROGRAM MAIN INTEGER FOO COMMON /FOO/ BAR END ANALYSIS ======== Function gfc_add_common, in file symbol.c, says: gfc_add_common (symbol_attribute * attr, locus *
Thanks. s1.f90 > subroutine s1(x) > use foo > real x > intrinsic sin > x = sin(x) > end subroutine s1 > > when i use ifort to compile, I got the error:This array or function or substring is invalid in constant expressions. [NULL] type(ClusterNode),pointer :: son1=>null() ! navigate here Open Source libraries RE: [NMusers] how to implement AR residual error model in Nonmem with FOCE INT routine This message: [ Message body ] [ More options (top, bottom) ] Related
I don't recall whether Andy yet implemented the f2003 form of this statement in g95. Mostly the whole business about restricting it to module procedures is what seems silly to me. In the html directory double-click the file named index.htm (not $index.htm) to open the index for html-help, select "a" as the first letter of the keyword, and then proceed to the
Patches: http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/ChangeLog.diff?cvsroot=gcc&r1=1.39&r2=1.40 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/symbol.c.diff?cvsroot=gcc&r1=1.3&r2=1.4 Comment 11 CVS Commits 2004-06-09 13:08:18 UTC Subject: Bug 13249 CVSROOT: /cvs/gcc Module name: gcc Changes by: firstname.lastname@example.org 2004-06-09 13:08:13 Modified files: gcc/testsuite : ChangeLog Added files: gcc/testsuite/gfortran.fortran-torture/compile: The f2003 fix is better. -- Richard Maine | Good judgement comes from experience; email: last name at domain . net | experience comes from bad judgment.. > > > domain: summertriangle | -- Mark Twain > > > Why this prohibition? > > Richard can RSS Top 2 posts / 0 new Last post For more complete information about compiler optimizations, see our Optimization Notice.
Comment 5 Dan Nicolaescu 2004-05-13 23:15:46 UTC > This is marked as rejects-valid, but the line > > COMMON /AN_EXAMPLE/ > > does not look valid at all to me. Description Roger Ferrer Ibanez 2013-05-02 08:13:34 UTC Hi, gfortran-4.8 (and 4.7 as well and possibly earlier versions too) complain with this snippet. Yet gfortran complains the following: > > In file blas.for:5 > > INTRINSIC SIN > 1 > Error: Cannot change attributes of USE-associated symbol at (1) The function DDOT is not http://jamisonsoftware.com/fortran-error/fortran-90-error-messages.php It is difficult (impossible) to anticipate how individuals will use verbatim code so any use of verbatim code may be problematic.
z.f90 > program z > use foo > real x > x = sin(x) > end program z > > gfc -o z foo.f90 s1.f90 GCC Bugzilla – Bug13249 Error when using COMMON Last modified: 2004-06-22 14:03:39 UTC Home | New | Browse | Search | [?] | Reports | Help | NewAccount | Log In Description Dan Nicolaescu 2003-12-01 01:25:09 UTC Comment 1 Dan Nicolaescu 2003-12-01 01:28:48 UTC With: gcc version 3.5-tree-ssa 20031130 (merged 20031123) mymod.f90 MODULE mymod TYPE :: mymod_type INTEGER field1 INTEGER field2 END Victor -- Victor Leikehman IBM Research Labs in Haifa, Israel Comment 8 Tobias Schlüter 2004-05-16 21:38:21 UTC I can't send or receive mail due to server issues, otherwise I'd participate on
Bob Corbett From: steve on 16 Sep 2009 13:25 On Sep 16, 4:11 am, Hifi-Comp
Cheers, Jim From: robert.corbett on 15 Sep 2009 23:48 On Sep 15, 8:15 pm, Hifi-Comp