IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Fortran Discussion :

erreur de segmentation en fonction de la manière de compiler


Sujet :

Fortran

  1. #1
    Membre actif
    Profil pro
    ingénieur
    Inscrit en
    novembre 2011
    Messages
    165
    Détails du profil
    Informations personnelles :
    Localisation : France, Tarn (Midi Pyrénées)

    Informations professionnelles :
    Activité : ingénieur

    Informations forums :
    Inscription : novembre 2011
    Messages : 165
    Points : 259
    Points
    259
    Par défaut erreur de segmentation en fonction de la manière de compiler
    Bonjour,

    Le programme suivant:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
          program test
          character(80), pointer, dimension(:) :: x
     
          allocate(x(100))
          call subtest(x)
          print*, x(1)
     
          contains
     
          subroutine subtest(X)
          character(80), intent(out), dimension(:) :: X
          X=""
          X(1) = "bonjour"
          end subroutine subtest
     
          end program test
    compilé par:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    f90 test.f90 -o test.bin
    fonctionne (compilateur sunstudio version 12)

    Par contre le même programme splité:

    fichier main.f90:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
          program test
          character(80), pointer, dimension(:) :: x
     
          allocate(x(100))
          call subtest(x)
          print*, x(1)
     
          end program test
    fichier sub.f90:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
          subroutine subtest(X)
          character(80), intent(out), dimension(:) :: X
          X=""
          X(1) = "bonjour"
          end subroutine subtest
    compilé par:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    f90 sub.f90 -c
    f90 sub.o main.f90 -o main.bin
    plante avec une erreur de segmentation (le débogueur dit que le tableau n'est pas alloué).

    Quelqu'un aurait une idée?

  2. #2
    Membre éclairé
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    janvier 2013
    Messages
    388
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Conseil

    Informations forums :
    Inscription : janvier 2013
    Messages : 388
    Points : 713
    Points
    713
    Par défaut
    Salut.
    Des pointeurs sont passés en argument de la procédure. Dans ce cas, l'interfaçage est indispensable pour que le compilateur ne transmette pas le pointeur mais l'objet pointé.
    N'oublie les bonnes pratiques de développement : « implicit none », compiler à minima en activant les messages d'alerte.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    program test
          implicit none
     
          interface
            subroutine subtest(X)
              character(80), intent(out) :: X(:)
            end subroutine subtest       
          end interface
     
          character(80), pointer :: x(:)
     
          allocate(x(100))
          x(1) = "salusava"
          print *, x(1)
          call subtest(x)
          print *, x(1)
     
    end program test
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    subroutine subtest(X)
         character(80), intent(out) :: X(:)
         print *, "in sub 1 :", x(1)
         X = ""
         X(1) = "bonjour"
         print *, "in sub 2:", x(1)
    end subroutine subtest

  3. #3
    Membre actif
    Profil pro
    ingénieur
    Inscrit en
    novembre 2011
    Messages
    165
    Détails du profil
    Informations personnelles :
    Localisation : France, Tarn (Midi Pyrénées)

    Informations professionnelles :
    Activité : ingénieur

    Informations forums :
    Inscription : novembre 2011
    Messages : 165
    Points : 259
    Points
    259
    Par défaut
    ça fonctionne merci!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Fonction strftime - Erreur de segmentation
    Par Mélodie_et_rythmes dans le forum C
    Réponses: 19
    Dernier message: 02/04/2012, 15h04
  2. Réponses: 6
    Dernier message: 30/12/2011, 22h14
  3. Réponses: 3
    Dernier message: 12/04/2010, 13h54
  4. Réponses: 21
    Dernier message: 08/01/2010, 16h15
  5. Réponses: 6
    Dernier message: 16/12/2009, 20h40

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo